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Wondering just what to do with the micro you 
got ior Christmas? At a loose end when it 
comes to game ideas? Never fear — the 
Book of Games is here! 

The Computer and Video Games office is regu- 
larly deluged with programs from readers — more 
than enough to keep the magazine lull for the next 
few centuries. So in order to bring you some of the 
best games that we've received — but which have 
not been published within the pages of C&VG - we 
decided to put them together in this bumper bundle 
of post -Christ mas fun. 

All the games have been tried and tested by our 
busy team of reviewers so any bugs should be few 
and far between. We also tried to keep the programs 
short and sweet with Ihe exception of World Cup. 
We thought it was worth giving more space to. It's a 
version of the game first published for the Sharp in 
our June issue - converted for the BBC machine. It 
proved popular with Sharp owners - so now BBC 
ions will get a chance to have a crack at the big 
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Remember Hangman, that game 
afternoons? Well now it has been 


™ used to 
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play on rainy 
o the Atari. 










No compendium of games would b 
sion of this all lime arcade favour 
men on your Spectrum. 
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Test you. powers of logic and d 
model tl and III. 
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How quick are you? Can you beat your Vic-20 
Program this game in and stand by for action 
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PYRAMID OF SECRETS 
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SNAKES 12 

Are you a slippery customer' Then here's your chance Ic 

live serpentine challenge. 

RED ALERT 13 

Scramble! The aliens are coming and it's your job to stop 

Bui you can bring it home on your ViC-20. 

MAGIC SQUARE U 

BaMed, bothered and bewildered? You will be alter ti 

BREAKOUT 

All Ihe colours of the Spectrum are used in this all a 
arcade style game. If you don't want to become another I 
in the wall - knock them down! 
AIRATTACK 

There's an air-sea battle raging m the circuits ol an Atari 
Watch out for those armoured balloons - Ihey are II 

WOHLDCUP 

Return to those heady days of summer when the World Cup 
was still up for grabs How would you have coped as manage: 
of a top team. The big match awaits on your BBC micro 
BOMBER 2; 

You are the pilot on a do or die mission Your ancient bghle 
is running oul of fuel. You are flying oyer a city full o 
skyscrapers. You need somewhere to land. Whal happen: 
next?TaketotheEkyinyourBBCpoweredplanetofindout! 
ALIEN ATTACK 2B 

S.O.S MISSION 

Welcome captain, you are in charge oi our latest S] 
battlecmiser on a mission lo a planet iniasted with e 
bases. Can you destroy them belore they gel you? Sit do 
your Pet and find oul. 

COPY .■. 34 

Beat your Atom at its own game. Match every move it n 
and you'll be a winner. If yon fail. . . well, computers c 

Watch out for the anti-matter. Beware ol the ghosts. Enjoy 
playing this spirited Spectrum game! 

3D MAZE 

Wander around this impressive graphic maze and attempt 
get out. Are you Sharp enough to find the aiil? 

GRAPHICAL GOLF 

This game gets the real game of golf off lo a tee. There are 
the frustrating hazards of the real game — plus the big thril 
Can you score a hole in one on your ZXS1? 

DODGEMS 

There's more than a louch of motorway madness about tl 
four-wheeled wonder for Ihe BBC modal B. 

ALPHAATTACK 

You are the last survivor on a planet devested by an alien 
attack. CanyousavayonrhomewithyourVlcpoweredl " 
PACMAN , 

This arcade funster has inspired pop-records, TV ac 
t-shirts — and now this version for the Apple. 

VICTORIAN SEWERS 45 

Ace puzzler Stephen Shaw strikes again with this surprise 
package for the Texas TI 99/4A. 



But look: There's the priest again. He 
inks he'll finish us this time. But we'll 
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RUNS ON A ZX81 IN 16K 
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LET Z -2 
LET V.EVB -SttJ?* 20 - 1 ■ 

"KS 2 T s-"»: 
ESfS If S.'J 

PRINT r T k '."' 

SKT -t 5;fc 
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I 1BB3 IE , SS'T>0 THEN INPI , 
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I ?o?£ ct -s 

I le<u GOTO -^ 

-||;|.THEN% I SO»5. ;i ;?4 



JSS5 ffi "°"5«?» T T5e. Mir, ., 

IP 9%3&HPMh&*. 
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^'j^'i=. ; ^ 



WVRDFIND 



5 OPEN #1,4,0, , 'K:" 
DIM ANSWER*! 20), GUESS* 
,), USER* (201, CLUE* < 15) 
>0 GOTO 500 
30 GRAPHICS 7 

35 COLOR 3 _ n 

F X>=1 THEN PLOT 20,79:DRAWTO 20,20 
F X>=2 THEN PLOT 10,79:DRAWTQ 20,59 
DRAWTO 38,79 

F X>=3 THEN PLOT 20, 
F X>=4 THEN PLOT 20, 
F X>=5 THEN PLOT 65, 23 



i, ALPHABET**: 



DRAWTO 30,20 
DRAWTO 80,20 
DRAWTO 65,25: 



The. object of Word Find is to guess the hidden word 
entered Into the computer's memory by your opponent. 
You simply have to type In your choice ol letter* which 
will gradually reveal the secret word. 

There U a catch however. lust like the pen and paper 
game Hangman an unfortunate character li gradually 
progressing toward his doom each time you make a 

Will you be able to beat your opponent - and the 



.,65, 2c.,on, 2o,67,26,62 



NEXT I 

525 IF LEN < ANSWER* >>20 THEN 515 

527 CLUES^"" 

,7 -}INPUT YOUR CLUE":? "(not o 
15 letters)" : INPUT CLUE* 

535 IF LEN(CLUE*)>15 THEN CLUE*="" : GOTO 



527 



.,29. 



',29,6B 



2,65,32 



6B, 30, 63, 31, 67, 31, 64 

80 DATA 66,32 

90 IF X>=6 THEN COLOR 2:F0R I 

OR J=34 TO 44:PL0T I,J:NEXT J - 

100 IF X>=7 THEN COLOR UPLOT 60,34=DRAW 

TO 57,39:DRAWT0 57,46:PL0T 60,35:DRAWTO 

5B,39:DRAWT0 58,46 

110 IF X>=S THEN COLOR 1:PL0T 70,34:DRAW 

TO 73,39:DRAWT0 73,46=PL0T 70, 35=DRAWTD 

72,39:DRAWT0 72,46 

120 IF X>=9 THEN COLOR 3:PL0T 61,45:DRAW 

TO 69,45:F0R 1-61 TO 64:C0L0R 2:PL0T 1,4 

*,- nROhlTO 1. 57; NEXT I 

12tTif X>=9 THEN COLOR 3:PL0T 62,58:DRAW 

TO 63,5B:PL0T 61,59:DRAWTO 64,59 

130 IF X=10 THEN COLOR 2:PL0T o5 '*^ R1 ™ 

TO 65,50=FOR 1=66 TO 69:PL0T I,46:DRAWT0 

138 IF X=10 THEN COLOR 3:PLOT 67,5S:PLOT 
6B,5B:PLOT 66,59:DRAWT0 69,59 
140 IF X<10 THEN 490 
14S FOR T=l TO 750:NEXT T 
150 GRAPHICS lt»6:C0L0R 1 : SET COLOR 0,0 : 
JsETCOLOR 4,0.8:7 #oi "THE ANSWER WAS " 

#6--^ #6:-? m6;ansuer* 

,»FO. M TO 5.FOR ,-, TO 2~.™° 

J, 8, ie:M£XT JjSOUND e,a,e,o=NEXT I 

S tS T-l TO 5»».0B«:NE»T T,!«U"0 » 

0,0:GOTO 600 
50« 7 "}WORDFIND":7 :PDKE 752, Is - u ° 
u want instructions CY or N) ?":6ET HI 
S10 IF CHR*CK)="Y- THEN GOSUB 1000 

til SS?w.y>^ ^"S^' 1 

S^Vo-Tl^l TO 20:GET *1,K:ANSW£R*<I,1 

C*.(°. = IF CHR.(K)="." THEN ANSWER..!, 

"iBOTO 527 



540 USER»=-:FOR 1 = 1 TO ^.ANSWER*. 
R*<I I) = "-":IF ANSWER*U,I)=CHR*(32) 
N USER*(I,D-CHR*(32) 
545 IF ASC(ANSWER*(I, I)) 
R*(I,I))>90 THEN USER* (I 
550 NEXT I 



1 1! ,1- 



600 GRAPHICS 2:COL0R 1 

619 POSITION 0,3:? WHUGEf 

620 POSITION 0,9:COLOR 2:' 
UE* 




' »6i"CLUE:-iCL 

■LETTERS USED:-";ALPHABET»:7 
NPUT YOUR 6UESS":GET «,Kl GU£SS.=CHR* 1K> 
:ALPHABET*<Y,Y)=GUESS*:Y=Y*l 
,3S IF Y>26 THEN Y=26 

£1 for ..i to usstt'iSJEE* 

SWER*(I,I) THEN USER*CI,II=GUESS«.Z-/ 

POSITION 1-1,31? *6;GUESS»:F=1 

650 IF F=l THEN GOTO 665 

660 NEXT I: GOTO 670 

665 FOR J = l T0 20:SDUND 0,50,10,14 : NI 

J-SOUND 0,0,0,0:F=0=GOTO 660 

670 IF USER*=ANSWER* THEN SOTO 900 

680 IF Z=0 THEN X=X+l=SOUND 0,200,4,12:6 

OTO 30 

700 GOTO 630 

i ? "CORRECT" „ , 

I GRAPHICS 2*16:FOR T=l TO 4: FOR S-. 
u .5:SETCOLOR e,S, 12/T:POSITI0N 0,3:? 
;"C0RRECT-:SOUND e>, 260/S, 10, 10 

,5 BETCOLOR 4,16-S,T:P05ITION 0,6:^ 
...*SWER*i SOUND 1,200/T,10,10 
920 FOR TIME-1 TO 20:NEXT TIME 

9 SOUND 0,0,0,0:SDUND 1,0,0,0:BUN 



1035 ? 1? ' 
■IF CHR*(K 
1040 GOTO 



5UB ia»o PAPER 



JRCE 

■J r-,5?fl BIN 3 00flll0tfA,BIM »eie» 
.IB BIN B1B11«S1,BIN BMUliaB, 
ilN1010PB00-B*<'' BBBBieBB,BIN IB 

"Oil ,BIM ii«0B»li __„ , , 

5 MT» BIN B01HB03 ? 

f 1331 HIM liiiliii Bill liljlWB 



S fS» S3*, to jjj 

(5 FOP f =0 TO 7. RESE- 
' CHRS fnJ *#,*.■ NEXT 

ST 0, IS. "A"t' 



51 IP RNF-; . 9:3 

ea let uyMj i-i 

-3 FDR f =INT fi 

S* PRINT «T e ,1 

&B If SCREENS 






190 NEXT u 

191 LET 1*= 
293 NEXT 9 



205 BEEP .05,9 

Riau o.aes 

= 4-3 DftHW OVER . 



THEN RETLW 
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You may alio ui 
■gain. And thay art am dan- wring hyparapaca butt 
jaroui a* a*er. but only six timBS. And 

You can daiand younali tlm* you pra** the pan* 



315 LET J____ 
330 PRINT RT 

-.as i 



PINT 



. . ■5 + ie.:.. "" " 

^aBPRlNT ht as, i; "S";HT 3l> 

i'iO' FOR J =-10 TO i© 
440 6EEP .85., f 



| your 



ton you 



t him lb* 



only lira thiea tlmei The lower thi 

at any on* alien. Tha good bafora you bloi 

nam I* that you can blait more you'll acoia - bul you 

thalr mlnllaa with your only hart tin Una to ploy 

laaar. Tha bad nin is that with, to don't let Ihem gst too 

iho» minlle* will homo In clcaal Uaa 'm' to mora right, 

OB Tou . "b' to go lert. and V lo Bra. 



THEN GO TO £-00 
10,3, INVERSE 1 



501 FOR 



INVERSE 



BEEP . ©2 . f 



■ LET I =RNO*31 

■ LET sc=sc-INT (100,- 
1 PRINT P.T 10,9; " 



VOU SCORED 



RND SLIRU3UED 



el* 1 
&10 j 



HIGH SCORE 



21, &.; INVERSE 1, " 



THEN CU£ 



YPER&PRCE 



PINT 



at my aiien 3 t*B 
iCi40 PRINT ' " us * ' 
I6s0 PRINT " ' v ' pu 
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Can you crack ihe hidden coda? 11 



ASTERMINV 

hidden code? II The Idea behind the game' lor lad. In Ihii game Ihe first optior 



you can you'll be really worthy of the those unfamiliar with it. is that a code on* used lo provide dillen 

title of C&VG mastermind! it set-up. which has to be discovered play. 

The program plays the part oi the in as lew attempts as possible. The On HlTNning the program there Is 

code-maker In the popular game of difficulty factor may be altered In an initial graphic title frame (10-90, 

Mastermind. One oi Hi strongest fea- two ways. 2390-2410). Then there is a brief set oi 

lures is the use of graphics, bath in Firstly the number letters in use Instructions 1100-160). 

the Initial display and in the depict- may be varied. Secondly the number Then the level of play can be 

Ion of the Mastermind board. of positions in Ihe cade may be var- entered by Ihe user typing 1.2 or 3. 
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Want to bone your reactio: 

those games at Defender. Frogger 
- and oi course, Pengo — down 
at your local arcade? Well here's 
the game that will test your mind 
to eye powers to the full. 

The rules are simple. All you 



hdVE 



the I 



] dot 



your computer and the 



n coloi 






. Assi 



happens you 
space bar. 

Your reaction time is flashed 
up. and there is also a high score 
feature which you set with your 

Further attempts receive com- 



ments from your computer and a 
suitable jingle. Instructions are 
included in the program which 
uses the Vic's sound, visual, and 
colour facilities lo the full and 
should provide a good test lo skill 
for any arcade fan willing to take 
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oured aliens! 
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REACTION 



■335 FOfih=l '0 
1343 PGKE3SS7i 
1343 PRINT" Pi 



REACTION 



1345 


FQRfi=lT0£88 


NEXTR 


105S 


P0KE36S?6,2 


3 


1353 


PRINT" *QN, 




; 355 


F0Rft=lTQ!25 


HE! Tfl 


;056 


f-'0KE--:bd7f-. :.i 




1560 


FuKE-^-M-r:.: 2 


2 


1363 


PRINT*' OtLL 




: 36o 


F3RM=liO203 


UEXTR 


1373 


PRINT" -WE 




U2@ 


POKE36876.0 




1133 


RETURN 




: 333 


F0K£.J.-.;;;75, 1^- 


1.355 


PRINT"iffl 


RRI 


rCilS 


FGRR=1T0433 


NEXTn 


>,;'--■-. 


F0KE36375..3 




.-. 1 C'J 


FGKE36S.4. 1 


:« 





2idS PRIN'f*'! i_ULK' ! , 








2110 FORR=1TO4S0 NEXTPi 








2111 PRINT"* -HUM" 








2115 PQKE36S75, 123 








■ j r--.:,-- -;4.-ii-i :.E 7 








:■-., i ,-:i,F -:,"-•- .-- r.-. r E3e874,0-RETURH 








ic-S: =>F"-_ 9 -4.- PPIHT"3H»M«IUE«:TISM!" 








4.-^-1 --;,-T ««»r~ " 








4026 PRINT 'illSi fl -IRCLE SILL tPFERF: 1 ' 








43"i"' FFINT-'ifl FN 'HE tCREEN *r'I *' 








4043 rFINT"M 0I3E GILL •OUNB..." 








,353 PRINT"M3 OU --JUST !IT ! HE " 








43b3 PR I NT" S *FRCE1 SiftfiS 1 ': 








4373 PRINT" *S -Pi ST " 








4380 PRINT"'! *S W "AN " 








4230 FRIHT"M»M« 1 OOD UICK ! " 








4566 FORR=1TO70S0 ■ NEKTR 








4633 30T05 m . ._ | , 
















5233 GETfl* 








5333 I Fh*= " V " THENG0T04 








5313 IFft*="N"THEN5 








535o GOTO5209 














6353 F3Rh=lT32033 NEXTfl PRIHT";T 








6133 G0T05 








» The builders of those ancient pyramids w< 

% people. They used every devious means available 

> them to protect ths treasures of the Pharoah buried dl 

g with the vaults of their mnuu ciaatloii. 

i, Trap doors, daad suds, false passageways - thi 

B anclanl architects employed all the tricks of their tradl 

J maVa sura no-ona could rob the tombs lined wtth gold a 

I glittering ] 



There are six levels to explore in search of the treaiure . : 
But beware of trap doors - and walli that may look solid, \ 

The trap doors will drop you bock to a lower level - and 
the entrance to the pyramid fs one of those moving blocks 
of stone and may be difficult to (led again. There ii alio a 



i enter the pyramid of secrets and s 
1 for the treasures which are hidden there? Will you 

j age la escape once you have found the glittering prize? 100-200: Help 
^ Or will you gradually starve to death - trapped "* ' 



10-80: Input routine and timer advance 

jives player's direction, level. 
treaiure ana indicates it a moveable wall Is nearby 
500-530: Solid wall message and open wall routine. 
1020-1050: Move player forward. 
3000-3020: Routine for finding walls present and whether 



3 GOTO 6000 

10 GO9UB303O<PRINTI»0, "WHI[ 

20 1*-INKEV*"PRINT(»25, I«; i 



+ 1< 



[ AND 5TBRYED TO DEPTH. "SEND 

IFI*-"F"GOT05OO 

IFI»-"L"THEND-D-l:IFD<iTHEND-4'G0TO10ELSEi0 

IFH-"R"THEND=D-M:IFD>4THEND-1'GOT010ELSEK> 

I F I »- " H " THENGOSUB 1 00 ' GOTD 1 O 

PRINTS59, 100-INTIT/lOO) ; 

GDT020 

i REM HELP ROUTINE 

I CLSipRINTTPBUO) "YOU ARE ON LEVEL -" ;LV: RRINTTOB (] 

PRINT"YOU HOVE ";SC;" POUNDS OF TREASURE" 
• PRINTTHBUO) "YDU ORE FRCING ";!DND GOTD1 30, 1 40, 15< 
I PRINT"NORTH"tGOT0170 
1 PRINT"ER5T"iGOT017O 
■ PRINT"S0UTH":GOT017O 
> PRINT"WEST"'GOT0i7O 

) PRINT" (THE EXIT IS ON THE EAST SIDE OF THE PVROMIt 
I IF FMX, Y, LVI >5J 1PRINT"THERE IS ItOVEfiBLE U3LL NEi 



I PRINT"PRINTIRRINT"RRESS P.NY KEY TO CDNTINU 

!> PRINT&4B, "TIME LEFT -" : 100-INT (T/100) ; :T-T+5: I*=INK£Y*: IF 

RETURN 

500 fl-X i B=Y : GOSUB3000 1 1 FFW-OTHEN1 020 

) IFFW>OflNDF=OTHEMPRINT&530, "THIS IS H SOLID WALL M!";:FOR 

NTS530, " "; 'GOT020 

S20 PRINTI»530, "THE WfiLL OPENS -" ; >F0RI=179T0160STEP-1 : PRINT6M. 

XTJ:N£XTI 

530 CLS:PRINTC530, "FIND CLOSES BEHIND YOU "! FORI- 1 TOl 000 >NE 



T TO YOUR PRESENT I 
NOTE TIME IS SLIPP; 



© 



W s LW=WW i BW=SW:ST=H (P., B, L 
N3020 

3010 FDR1=1T0D-1 :Z=FWiFW=RW 
3020 F=A(X, Y,LV)P.ND(FW"512> 

IFR(X, Y,LV)=769THEN550 
iGOTOlO 

5040 IF5T=64THENCLS<1 
jT^',iTHENCLS:LV=LV*I 
5050 IFTR10THEN5C-SC- 
SURE5, 

1 NOW HPOE";SC; "PDUNDS" :£ 
3060 CLS:PRINTei41, VO* ; iPRI 

1129, W3*;iPRINTea97, ua*; 
3O70 1FRW10PRINTIM1&, XB*; it 
30BO IFFW10PRINT8l42,Wl*;il 
3O90 G05UB1060:G 



V-)=PRINT(*520, "GQING UP 
NT&520, "GOING DGWNSTGIF 
)<10>«10:CLS>PRINT(*520, ' 



0!IFPI>0P.NDRND(9)=4THENGDSUB560O 

STAIRS " : GDSUB7050 ■ GOT01020ELSE IF 

I" : GOSUB7O50 : GOTO 1 020 

□U HOVE COLLECTED MDRE RRRE TREA 



1150 



(INT8342, VI*;: 



SI*' :RETURNEL5E1 
1C»! IWUNTM10, XI 

(D«;iPRINTeBM, Xf 

(INTI»362,V1*; UFI 



-ST=64PRIN" 
i;ELSEPRlN" 
l;EL8EPRIH' 



HNTP747, W3*; 



; :RETURNELSE1F5T=64PI 
NT&727, XH*;EL5EPRINTI 
NTC679, XJ*;ELSEPRINTI 



11NT&U22. y 



tINT(*&67, I 



;J60 G0BUB10&OTG0SUB31 

J170 IFBT-32THENPRINTI 

31S0 IFLW>0PRINTg343, : 

3130 IFRU10PRINTS423, 

320O PRINT9410, V3*;:PI 

3210 IFFW>0PRINTI?411,I 

3220 GOSUBK 

iO IFLW>0PRINTe411,CHR*(176) : 
CHR* (176) ;ELSEPRINT9475, CHR*(H 
3240 IFRW>0PRINTe4S4, CHR* (131) 
CHR* (1311; ELSEPR I NTG4S4, CHR* ( U 

S2&0 PRINTI»477,CHR*< ISO) ;CHR*C 

K241 ;CHR*<26) ;V*;CHR*<143> ; 

1270 IFFW>0PRINTI*47B,STRING*<5 

'S, CHR* (176) ; CHR* (26) ;CHR*(179: 
CHR* (131) ;!PRINT(?610, CHR* ( 131 : 

IOOO RETURN 

55O0 CLS'PRINTe520, "YOU ARE OUT '"iRRINTiP 

;nt:print" treasure collected -";sc 

EXCELLENT M"lENDELSE PRINT"YOU DID WELL 



;CHR*(: 



SI*; :retURNELSEIFST-64PRINT»5*0, B2«; I 

IR*1131) ;iPRINTI*667,CHR*(131) ;CHR*(27) 
i) ; IPftlMTBfiOS, CHR*( 140) ;CHR*U40> ; 



4o> ; iPRiNTeeo&.f 

CHR*I32) ;CHR*(1" 
: RETURN 



sPRIN 






NT" TIME LEFT" ;32 -: 
POUNDS"! IF S0 200 PRINT 1 
ESCAPE. "I END 
HOVEOBLE TRAPDOOR AND 0RE":FOI 

. rjiPRINTCl, " "inextui 



hi >CLS:PRINTe2B2, ' 



'; CHR* (271 ; 



6600 

STEPe 

60O0 CLEAR 900=1 
PI I D":PRINTe53i 
6010 PRINT&5BB, ' 
*(26) ;:FORI-1TO{ 

&O20 PHINTe7BO, "WRIT 

»769 

6030 N1-7-LVJN2-12-N1 

/t OTHEN6030 
6040 Ul*=STRING*(37 n 1311 : W2*«STRING* < 37, 176) lW3' 

S*=CHR* (131) *CHR* ( 1 40) -CHR* ! 1 76 ) ! XB*=CHR* 
RESS '!■ FOR INSTRUCTIONS OR ANY OTHER KEY TO CONTINUE 
6050 I*-INKEY«:IFI*= ,,,, THEN6050EL5EPRINT"JUST P 
6060 V*=CHR*(191)+CHR*(26)-CHR*(24)!F0RI=1T013 

i*CHR*<26)-XA*+CHR*(26>-XP.* 



(32) ;CHR*(2&> ;!NE1 

i by steve hdlloway, feb 19b: 
orx-niton2'FDRy=nitdn2jrehdp.;f 



Nil* ■■ ■ 



^)-AIN£XTY:NEXTX. 
131>IW4*'STRING1 



6070 XES-CHR* (140) -CHR* (1311 +CHR* (271 - 
( 26) -CHR* ( 1311 -CHR* < 1401 !FORI=1T07:V1* 
B*<a 176>iW5*'STRING*<19, 131) IW6*=STRI 
6OB0 SI*- "STAIRS" -CHR* (261 -STRING* I 5, 2 
24) -"UP" =TR»= "TREASURE" 
6090 W9*=STRING*U1, 140) :WP*=STRH" 
*.V*-CHR* ( 1 43) : XGS-CHR* ( 1 40 1 -CHR* 
) -CHR* (271 +CHH* 1176) :XI*-CHR*(131 



761-CHR* ( 140; 
ITINUE" 
MOMENT":IFI*=" 

>6*-CHR*(27)-XB*+CHR*<2 

XB*-CHR*(2' 



■oosuBSOoo 

I i XC*=CHR* ( 140) +CV 
)-CHR*(i76>+CHH*U 

XAS-CHR* (26) +XP.**CHR( 



KINEXT) 



-"DOWN": 



I1RS"*CHR*<26) - 



140) :V3*=CHR*(iaa)-CHR*(26)-CHR*(i 
•CHR* 126) *CHR* (1311! XHS-CHR* (140) *C 
* (27) -CHR* (176) -CHR* (140) 



llr ■ '■■■ 



£110 FORI=1T011 :FDRJ=IT01 1 IREADfi:0( I , J, 6) -fi :NEXT J ! NEXTI 

6120 PRINTTflBIBI "PRESS <F> TO OPEN ENTRANCE AND START EXPLORING 11 

G9BO D=4:X=9:Y=6:LV=3:SC=0:T^0 

6330 I*=INKEY«:IFI*="F"THENCLS:G0T052OEL5E6390 

7O00 DBTP.3,5, 1,5,5,5, 9,3. 9,2, 13, 2, 5,3,9, 14, 84, 10, 14, 64, 10, 3, 13, 2, 9, 3, B, 3, 12,2, 12 

,7, B, 10, 10, Id, 2,5, 8, 3,23, 10,6, 12, 14, 10, 11, 14,2,5, 1 2, 3, 1 , 3, 1 O, 6, 1 , 8, 3, 1 , 12, 1 0, 10, 

70 J o' DATA! 9, 133,5,5,2053' 13 32., 32. ..'. 5,9,515, 5. 12, 3, B, 7, 12, 10,64,9, 10, 6, 5, 5, 4, S, B 

,6, 1,5, 13, 7,3, B, 11,2062,64, 1, 13, 11, 10,6,517,5,4,5, 140, 14 

7020 DBTB3, 1,3, 133, 13, 1 O, 6, 3, 64, 32, 6, 1 37, 2, 1 33, 9, 3, 12, 2, 1 41 , 10,6,32,2062,6, 12,3, 

5,32, 10,64,3,6,5, 140, 32 

7030 DfiTP.7, 9, 23,5,5, 5, 1, 1, 5, 5, 9, 27, 6, 9, 7, 5, 9, 14, 10, 1 1 , 7, 8, 10, 11,6,5,3,2,5,8, 2,29 

, 10, 10, 2, 1,4109, 1034, 10,27, 10, 6,5,8, 10, 10, 10, 3, 12, 10,6, 12,3,5, 12,6, 12,10, IO, 7, O, 

5,9, 14,3,9 

5, 9, 3; 29, 10,2,3. 12^3,^9', 10,64, l>':>,E,'s, 12' f., 5, 13, 6^ 5] 12, 6, 12 

7o50 fori=1t01 000: next i jclsi return 

800o cls;printtab<10>"p vrrmid of secret s" ■ print: print"you ore o 

the pyramid, in a moment ¥0u 

1 wry around. " 

:n treasures td find and minor hazards to avoid 










'*, GOSUB M^V 

1,3 FOB ">»;' ';,;";,61.~E»T ««. 
|2»J "-'-*„ nT e «:DBfiWTD 15*. »■ 
I 38 a=ST1CK101 

l 3 i s=stio<u> ,. H i=a 

:b If ES 'S «£»"«£, 

:1»» IF »-'< I™" V2-1--H2-" 
»" 5K THEN «-».«2-l 

1 9 » COLOR 1 : P L ^ «' " 
I,, COLOR 2:PL0T X2.Y2 
"J 92 POKE 53279.® 
((I95 GOTO 3» 
1 l«e GRAPHICS 1 + 1' 
1 Ul POKE (PEEK<5 



\-5to FOR W 
I S : SOUND a - 



TO 25e:S0UND «. 



,i0,ie:NEX 



#6:' 



iq9 GET "li 1 " .... 

x ;"„fF H 'S«.»»>*=" reB< " 

. iS ETCOL0R 2 'Z,'' yeR 2 LOSES" 
202 7 «« " , ,^ L r, >9 THEN *.<*» 

20 3 ms;; 1 ^. - 



#6;" 



■iRl = 



'to 25«!S0UND e,S.» 



I 204 
I 203 

1 playr. - 

I 250 FOR 5= 

I s . sound ».-;;, Bti .. 

1 2W GET »1 K^GDTO 10 

1 7:SETC0L0R 2 '^ 1 ^ oth lost'.M" 



SCORES" 
16!" 
,18: NEXT 



I 302 ■ 



-.10 lO.AlSDUND 9.»>»i» 
= 10 GOTO 198 

» BR "?\gFK^Si 



1 TO 



[0^ SOUND ' 
rf:NEXT r 



5ETCUL0R 2,7, 10 
502 ? *bi- PLAYER NO. 2 U 
563 FOR ZZZ=0 TD 1O0:FOR 

SOUND O,ZZ2,10,4lNEXT 2 



) BOTG tie 
1 GRAPHICS 1+14 
POKE IPEEK<560> 



254»PEEK(541I 



2B0e OPEN #1,4,0, "K" 
201*1 GRAPHICS 1 + 14 

2002 POKE (PEEK (540) 

2003 ? K6; " sn 

2004 SETCDLOR 2, », 14 
2010 



254>F'f .FK (541) 



IN THIS 2 PLAYER" 
GAME EACH PLAYER" 
RIES TD AVOID THE- 

OTHERS TRAIL" 
ISING THE JOYSTICK 1 



- 



RED ALERT: 



VUl.tl.VIMUJ:! 



w.<khvri'ii*!i 



Got tunnel vision? Then 
this game Is the one for 
you I Zapping through 
narrow tunnels is a task 
some arcade video freaks 
just love. And here's a 
program that will save a 
law of those precious 
lOp's. 

It's based on arcade 
Scramble — the game 
that you either love or 
hate. For those of you who 
have yet to come across 
the game - and you must 
be few and far between 
here's a rundown on what 
you have to do. The idea 
is to pilot a spacecraft 
over the ever changing 
landscape of an alien 
cavern, dotted with fuel 
dumps. You roust avoid 
the walls of the cavern 
and the spaceships which 
advance against you. 
You bomb the fuel dumps 
and shot down the ships 
- It's as simple as that! 

The program is written 
mainly in basic apart 
from a small machine 
code routine In 
subroutine 5000. This is 
used to pull the screen 
from right to left. The 
game can be controlled 
using either the keyboard 
or a joystick. 



31 lFTIt= , 'i'KiQ2i3ri ,i THLNPuKc3ie:S73..S:i:C=.t 

32 IFTI* = "00LV::3Hi"THEHPQt-E.::iSS7? J S7 CC = 

35 C-RNDCl) 

36 IFB<CCTHEHJ=J+1 :GOTO40 

37 J=J-1 

4S IFC<CCTHEHG=6+1 -GOT046 



■10flNDGM0THENG='> 
G>17THENJ=J-1 -<j=C- 
1THEHJ=1 



.!=:-: 



STHEHPC'if£Sl35-22+K.; 



iliTHENPi:ih-.E77HU+22*K+44.. 24 P0k'E3S4£:l- 







i.Vf EflT^,0.iS0.i;b,l£e-2 ! !:5,t-e,i-o — 
1076 BfiTmse.80 [68.75 168.00, 1 6(5, t j 
1OS0 DP.TH0, 1.3 .7. 127 ..255.255,0 
: t i0t. FtiRi = iT018 
£010 P0KE36379.. 1*10 
2811 P.OKE36S7S.10-I 
2012 POKE36S77,220 

KK-1.TO200:NEXTK 
2630 NEXT1 

21540 R-lPL=lTOKi00NEXTL 
2045 FOK E36S6? . 240 ■ PR 1 NT " IT 1 
2650 PRINT "flMSaGfitlE OVER"" 
2068 PRIHT u «Bi , OU SCORED "3C 
2«70 PRINT (HHHOTHEf GRHE :V/N>" 
20S0 GETflt.IFH*-' 1 'THEN20SQ 

2981 IFB*-' , V"THENJ=S C^S P=7304 3C^?-TI*= 3iWih™' R0l--E363i-.? .."^ fifiTOin 
2082 IFflF=-WTHENPR [NT' T' : POKE^t.86:?.. 2-Ujl ■ tW 
2990 GGTO20S0 
-3000 F0RM=1T019 
3005 P0KEN..32 
3010 N=P+M*22-eriKE3S8'6, 15@+M*10 

IFPEEK(H;.-:-V-:fHE^i:-3i>."_?P -:"3 ;: ."-2 - >'E 1:6:376, - RETURN 



IPPEE- 



tTHEKPC 




;EN,42:PCi*::E3iSS~iS.. ? PE T JP- 
-- P0KE36Srs..e : RETURN 

:EMi,32 '■11=P-^E -LXE3-='3^£.240 Puh E36376 fi 
20 -RETURN 

:00:P0KEMI..32 REtijrn 
.S0:POXEM1 .-32 RETURN 



:.. 3 NEXTK: RETURN 

r. 23, 32, 210. 255 163, 13.32. 218, 255- 169. 0,141. 60, 3 

•■■A- 3., .-::i?-.-T 163 13 32,210,25? 236.69.3,173.60 



Warding. Thin game 
Impair your vanity. 
WrltUn In machine cod. 
cm Atom with at laait 3 
HAM thla program h 
dHlgnsd to altbar incri 



iqua» arid with a random 
numbar oi tbsu iquai« 
Illuminated, By praulng 
any of tb* nuntarlc bays 
within *J» -anga of 1-3. dll- 



■quar« may b* obtalnad. 

Tha final obiect balng to 
light up all tb* «quar« 

Should you managa thli task 
you are rawardad by a dii- 
lytng diiplay of night and 
found, ninall comtolcrtfot for 



10D1HKK8-UU2 

20P.al2"UAlT' , «21 

3eCOS.*rGOS.*jG08.« 

40 1 »300-tlBF00BFBF 1 I #304-#000000Bf : 1 7N308-N00 

30'*310»t003FBFBFi i.3H«#0880003Bi'»»3ia"#eB 

60 1 -320-H08BFBF00 1 I #324-*0000BFBF j -#329"#B0 

70 I N330-«BF0000BF 1 *334-»00SF00B0 < ?#33B-#00 

80 1 (I340--BFO0BF00 ! #344->tlBF00BFBF j 7#348-w00 

90 I «350-«00BF0000 1 >354-M00B0BF00 | ?#33e«"BF 
100 1 #360-#BF80B000 ■ 1 »364-tlBFBF00BF 1 ^«368-*00 
1 10 ' »370-#00000000 i I »374-HBFBF0000 , •>«37e-IIBF 
120 1 *3S0-tt00000000 1 I M84-»BF00BFBF 1 7»388-*BF 1 CLEfl90 
130IFR.V:2-0i7*00B7-#FFjIFB.S;2-0j^e0flB-IIFFiIFR. , / 1 2-a;?(te0flF-»FF 
140IFR.X2-0i'»#ai07-»FFjIFR.V.2-0i?#8l0B-*IFFjlFR.-'.2-0,7#ei0F-»FF 
1501FR.S;2«0 i 7»8167-#FFiIFR. , /.2«0 1 ?*ai6B-#FFiIFR.V.2-0iT#B16F«(lFF 
160!»DE-»B025)P."r«aic"»12e"squ.*r." 

170MOVE18.9'DRr1U19.3S:MOWE27,9;DRfiU27,35iHOVE10 18.DRBU35..1B 
1B8MOVE10-26^RRW33,26 



SQUARE 



190 LINK #3300 

193 BUN 

200 EUQ 

210* P-#3300 

220CKK0 J8RKFFE3 •> GET KEY 

230 CdPMSliBM KK0 

240 CMPB»40iBPL KK0 

230 RNDM0F 



260 ROL RtROL R 

270 ROL Hi ROL A 

293 STR#88 

290 SEC;SBC8ttl0 

308 TAX 

310 LDV89 

320 LDRt88A7 

\ CQHPLIMENT 

330 EOR#300.x 

348 STA#80A7 

350 INX 

368 LDA*80AB 

370 EOR»380-« 

3B0 STRH80AB 

3» INX 

400 LDR»90AF 

410 EOR#300.X 

420 STRttB8RF 

430 I NX 

440 Lt)R*B187 

458 EORtt300.X 

4S0 STR*8107 

470 I NX 

488 LDM810B 

490 EQRM00-X 

300 STRK810B 

318 INX 

328 LDRKS10P 

338 EOR#308.X 

340 STfl»B10F 

330 INX 

360 LWMB167 

370 EOR*308-X 

588 STfl»8167 

590 INX 

608 LDRM816B 

610 EOR*300.X 

620 STRtt816B 

630 INX 

640 LDR»816F 
630 EOR#300.X 

660 STPJ81SF 
678 BCS KK2 
688 -KKl JMP KK8 
(98 'KK2 LDYMRfl 

\ BLEEP 

708 LDR#B002 

710'KK3 LDXM80 

728 'KK4 DEX;BNE KK4 

738 E0R84 

748 STMB802 

738 DEY 

768 BNE KK3 

778 LWW88R7 



870 CMPMFF 

888 BNE KK1 

898 LDRS81BB 

900 CHPM40 

910 BHE KK1 

920 LOR#910F 

930 CHPUHFF 

948 BHE KK1 

930 LDR»S167 

968 CMPItFF 

970 BNE KK1 

980 LDP1H8I6B 

990 CMPBttFF 
1000 BNE KK1 
1010 LDR#916F 
1020 CMP8#FF 
1030 BNE KK1 
1850 LDR9B>STR»H0 

' Bf"SKK3 

1831 -UU8 LDX8»90 

^BLEEP 

1052 UW1 TXfliTflv 
1033 LDRHB002 
1054 EQRG4 
1855" STfl*B802 
1056 ^HW2 DEY -BNE WU2 

1037 DEXjBNE WU1 

1038 RTS 

1068 <KK3 LOM8W7 
S DISPLAY WIN 
1070 EOREttBF 
1090 STR»90R7 
1090 JSR WW0 
1100 LDR#80RB 
1110 EORJMSF 
1120 STR*tS0RB 
1130 JSR UU0 
1140 LDR»80RF 
1138 EORWBF 
1160 STR#80AF 
1170 JSR UW0 
1180 LDR#B10F 
1190 EORBtBF 
1200 STfltBlBF 
1210 JSR UU0 
1220 LDP.»Sl6T 
1230 EORS»BF 
1240 STR#816F 
1238 JSR UU0 
1260 LDfl#816B 
1270 EORtWBF 
1280 STH*B16B 
1290 JSR UU0 
1388 LDRt.8167 
1318 EDRUtBF 



8REAK°UT! 

Ever feel like your* just It* a gams for one 
banging your hoad up player and tho object is 10 
against a brick wall? Do knock at many bricks out 
you want to break out? of the multicoloured wall 
Well , here'* your chance . as you can by bouncing a 
Simply program In this ball at it. You get three 
little number and you'll balls to score as many 
be able to knock down points as you can. Key 'S' 
walls as quick as your moves your bat left, key 
computer can bulldthem. '8' moves it right. 

HJ.M'..|.'...').', ITT- 




GO TO B t _.. U " OR •»»"¥" THEN GO 
SUB 6O0 

._. rhr> 

POKt 



■-"■ fe B I„ b s 



II rem page i 
wi» T K, 1 1 * lie?' "=-=? 



If £fe? „.. «• h.« THEN ^T 

'i* r»™t bt >,u «M» * 



INK 7, S 
J.-LCN 



PBPER ©.■ 



5 c a 



1GB li,k 



riiiVh"; 1 



••{J print Jt »■•: FOB »-j to as 

, pbper s_i." if.^'psPEB a; 



\ WIN CHECK 


1320 STA»8167 


788 CMP8KFF 


1330 JSR WW0 


798 BNE KK1 


1340 LDR#6107 


888 L0RH88RB 


1338 E0R8#BF 


B10 CMPG#FF 


1360 STfl#B107 


828 BNE KK1 


1378 JSR UNO 


838 LDRH80RF 


13B0 DECtt48;BNE KK5 


840 CMPa#FF 


1398 RTS 


850 BNE KK1 


14883 


860 LDA»6107 


1490 RETURN 



9ffl L-ET„'' l= ' 



RfT 17.- 3*'" 



^^MZi^m**** 



to 9* 

pbi sub' 



-af«BS 



THEM I 



; fSyl.fUttiSi"^ 



RUMS ON AN A TARI 400 IN 16K 



|al iighiars, hallcoptani and afmouiad balloon. 
aim out to do your (hip damaga. 

Your talk ii to u«» your lupplyolmlwllas -Mm 
all — to thabaat advantaga. Shoot downai many of 
tfaa enamy ta ponlble with tha limiled lupply of 
weaponry. Whan your armameot li wad up tha 



1 REH . ... AIR ATTACK ... 


14.- 


FDR I=MYPMBASE«512»Y<0> TQ HYPMBA5E* 




516+VI0) :READ AsPDKE 1,A:NEXT I 


1 rem " " S2 


644 


FOR I=MYPMBA5E+640*Y(I) TO MYPMBASE+ 
Y(1);READ A:PDKE 1,A:NEXT I 


5 DIM ¥(4):¥(e)='?l:V(l)=2®:Y(2)=30:¥<3) = 




FOR I=MYPMBASE+768+V<2> TO HYPMBASE- 


40iYI4)=8B:REM Controls vertical positio 




Y12>:READ A:P0KE I, A: NEXT I 


n of 4 players 


I7e 


FOR I=MYPMBASE+B96*Y<3) TD MYPMBASF-* 


6 Xl=t00: X2=150: X3=55: X9=1B0:Q1=-3:Q2=4: 


905+Y<3> :READ A:PCKE I.A;NE«T I 


Q3=-2:Q0=2:REM X controls hori. position 


180 


REM Lines 140-170 read player- data 1 


of players, a controls speed 


nto 




7 B=75:B1=B:*A=40 




POKE PCOLR0, B8:P0KE PC0LR1 . 26: POKE P 


10 PMBASE=5427 D :RAMTOP=106:5DnCTL=559:GR 


CQLR2, 13B:P0KE PCOLR3. 186 


ACTL =53277: HPOSP0=532 48: HPDSP1 -53249: HPO 




POKE 752, 1:SH=20:REM 752,1 removes c 


SP 2= 53 2S0 : HPOSP3 =5323 1 






28 PCOLR0=704 : PCDLR1 =705: PCOLR2=7«i: PCQL 


in 


SOSIJB 1600 
GOSUB 1300 


3« SIZEP0=53256:SIZ£P2=5325B:REM Used to 








290 


SOSUB 1000: REM MOVE TARGET 


50 PIPF=53253:P2PF=53254:P3PF=53255:REM 


216 


IF STRIG(0)=0 THEN ST=1 






IF ST=1 THEN GOSUB 1290:REM BULLET 






GOSUB 1100: REM MOVE SHIP 


t& POKE SIZEP0,1:POKE SIZEP2,1:REN Playe 


24e 


GOSUB 1300:REM CHECK HITS 




230 


IF SH=0 THEN GOSUB 1410 


79 REM 


300 


GOTO 200 


1*0 GRAPHICS 7 


1009 Xl=Xl+Ql:POKE HPOSPl. X1:IF XK35 TH 


lift A=PEEK(RAMT0P)-24:POKE PMBASE , A : MYPM 






BASE=256*AjP0KE SDMCTL,46:PDKE GRACTL.3 


1010 X2=X2+Q2:POKE HP0SP2.X2:IF X2>220 T 


120 POKE HPDSP0,X0:POKE HPOSPl , X 1 : POKE H 


HEN 




P05P2,X2:POKE HP0SP3.X3 


1020 X3=X3+Q3: POKE HP0SP3,X3:IF X3>213 




R X3<35 THEN D3=-Q3 


130 FOR 1 =MYPMBASE*3B4 TO MYPMBASE-H024: 




RETURN 


POKE 1,0: NEXT I: REM Clears P-M RAM 


i 1 ,-«. 


F=230:IF STICK<0>=11 THEN X0=X0-Q0: 



o 



7^ 




W ,.,, 


AIN (V/N)"i:GET ttl.K 


1110 if STiCK<e>=7 then xo=x0+QO:F-iB0 




1 423 


IF K=255 THEN 1420 


1115 IF X0M99 THEN X0=199 






IF KOB9 THEN END 


nit if xo<4o then xo=40 






IF SOHSC THEN HSC=SC 


1120 POKE HPOSP0,X0:SOUND 3,F,6,10 






SC=0:SH=20 


113a return 








1200 COLOR 0:PLOT 1A.B 








1210 B=B-2:COL0R UPLOT X0-40,B:XA=XO- 






POKE 656,2:P0KE 657,14:? HSL 


1220 SOUND 0,b,io, 14 




14B9 


CLOSE ttl 


1250 IF B<2 THEN COLOR O:PL0T XA,B:B=75: 




RETURN 


ST=0:SH=SH-1 




150O 


POKE 656,1: POKE 657,3:? "SCORE- 


1290 RETURN 




1510 


POKE 656, IsPDKE 657,24: ' "SHOTS" 


1300 IF PEEK(P1PF)<>0 THEN HIT-l:GOT0 


13 


1520 


POKE 656,2:PUKE 657,3:? "HIGH SCORE 


1310 IF PEEK<P2PF><>0 THEN HIT=2:G0TO 


13 


1550 


RETURN 








XX=O:P0KE 656,0:PDKE 657,10:? "«*» 


1320 IF PEEK<P3PF><>0 THEN HIT-3:BOT0 




AIR ATTACK ..«":SDUND 0,255, 10,8:5OUND 1 






,254 


10,8 


1340 IF HIT=0 THEN 1390 




1619 


XX=XX+1:IF XX>10 THEN 1630 


1345 FOR S=20 TO -20 STEP -1:S0UND 0,f 






POKE 656,2sP0KE 657,13:7 "Press STA 


(S>,8,i2:NEXT S 








1350 IF HIT=1 THEN SC=SC+30:Xl-30 






IF PEEK (53279) -6 THEN 1690 


1355 IF HIT=2 THEN SC=5C-MS:X2=225 








1360 IF HIT=3 THEN SC*BC+5:X3-43:0=1 




1649 


IF XJK10 THEN 16BO 


1365 COLOR 0:PLOT XA,B 






POKE 656,2:P0KE 657,19:? " 


1389 SOUND e,e,0,0:ST-^0:B=75:1!IT=6:FOKE 


16S1 




3327B,1:BH=SH-1 






GOTO 1619 


1390 POKE 656,1: POKE 657,9:? SC 






SOUND 0,O,O,0:SDUND 1,0,0,0:? ">-:R 


1395 POKE 656,1: POKE 657,30:? SHi" - 






1400 RETURN 
















1420 POKE 656, Is POKE 657,2:? " YOU SCOR 






55 


89,66,36,60,60 


ED "iSC!" IN 20 SHOTS. 










RUNS ON A BBC MODEL B IN 32K 



Remember the World Cup? Those 
baddy summer days whan England 
■till had 11 all 10 play tor and every. 
one was saying lhat this time tha lads 
could puU it oil . . . 

Wall they didn't quits make it did 
lhay? And now uW ' 



try's team through to the champion- 
ships ol tha World Cup Finals. 

ll will let you manage any ol the 24 
countries involved in the 1982 World 
Cup but expect to have a more diff I- 
II you pick D Salvador than 



B fill 



11th* next on*. Still, 
i ths tune by program- 
usion at the World Cup 



If you choose Brazil. 



ence to quality, try to tnanulacture 
Then, it's out ol your hands and the 

of your players seam Is 



sion and play badly, these i 



By special request we're reprinting 
one ol C*VG s most popular program 
listings - first published In [une last 
year. But this time we've adapted It 



will be stumbling blocks to your con- 
tinuation In the competition and send 
off your tenuis to watch them. 

Remember you can get through by 



World Cup Manager mis o i 
you all ths frustrations at sitting on 

lbs bench when ths notional si J 

' - n20rr 






from time In a crucial match. 

Hopefully , with some carolul atten- 
tion to tactics and good substitutions 
Id critical games, it should give you 
all the elation ol guiding your coun- 



oppositiona ploys. 

There are other considerations too, 
choose your lormailon carefully and 
11 you need to boost your goal diiier- 



O lllf: 



tactics. 

Check on how the goals are scored 
- it could be important to tighten up 
your deleoce to certain situations or 
to find out which ol your own attack- 
ing ploys Is paying dividends. 

Half-time comes around and this is 
your chance to change your ladles it 
you hare noticed things going 

At the end ol the any. win. loss or 
draw, you will bane to sit back and 
watch the other results ei the day 
being typed out and Hi If your pre- *a 

dictions are coming true. esT 



o 



,EWt3,3),C*<2 



' DATA 1,1, 
■ DA i a ■' n 
i THE BALL ! 

", " CROS 
' DATA ' 

MOVES IP 



T B£*o),e»(i 



'. btRMWIV, -'UEOSLAVIA, HUNGARY, BELGIUM 
SCOTLAND, N, IRELAND, PERU, PUSTR 
. LflMF-rRDON, KUWAIT, RUSSIA 



ITALY, POLAND, F 



t THE BOLL 

PLAYS I 






JSIDE ", " SWERVES POST 
I CHALLENGE l-ROI". "," I! 
1 E CR09S IS HEALED awi 



ILL TO", "IS H 

I DRTfl "'9 flERCE DRIVE 

KEEPER AND »JS..1li-,:, " ■■ 
THE BALL ", "'S CM. 



IR AHEAD OF ",'"S PASS IS MISCONTRDLLED BY "," 
NO WITH "," HITS A LOME BOLL TO "," PASSES Mil 
GH BALL TO ", ■■ COLLECTS P. PASS FROM '■ 

," IS SENT AklAY BY "," WINS A FREE KICK FRO* 
, '■ DUHMIES "," RUNS ROUND "," RACES PAST ",' 
IS TACKLED BY " , "' S PASS IS CUT OUT BY " 

3,"'S CHIP FC1H GOAL IE HEADED AWAY BY"," LOSEs' 1 

VOLLEY IS PUNCHED CLtAR BY" 
WELL SAVED BY"," BLASTS THE BALL UIDE ", « ROUNDS 

SHOOTS WIDE ", " STUMBLES ( 





I F3=D9(J> :D9(J>-D3tJ- 

> F3-P9CJ) :P9(J>-P9<J- 

) F3=W(J) :W(J1-U<J+. 

2430 F3=D<JI :D(JI-Q(J* 



I 2460 
1 2470 
I 2480 
I 2430 
I 25O0 
I 2510 

I --520 



1) 1T3 


J*l> 


1> iF3 


J+l) 


J> =B3 


J+1J 


1) = D8 


J+l) 






1> :P9 













: U6=6 THEM I 



i=CHR*<I+48) 
i=CHR«<I+6i.> 



I 2510 
I 2550 
I 2560 

I 2580 
I 2530 
I 2600 



;:PROCRE5UL_T 
ENDPROC 

DEF P SO C RESULT 
Dl-Dl+1 
P ROC PL «Y CHECK 
CLB 
PRINT"RESULTS FOR ";D! 

FDR I-1TU6 

H-0»fI,H2> tP.=0*(I,P,2> 
IF H-T THEN B=P2'C-P3' 
IF T-fi THEN B=P3:C=P2: 



IF Dl-18 THEf 
PRINT 

IF*D1=1B THE^ 
PRINT-PRESS ' 

Z*'QET* 



FOR LEAGUE TABLES" 



HEN SOTO 1B80 
IF Z«-"L" THEN PROCTfiBLE 
ENDPROC 
DEF PROCTPBLE 



2650 IF W6-4 THEN 2670 
2660 IF J (3 THEN PROCV 
2670 NEXT J 



270O GOTO i7SO 



1;F9<J];P5*;BSIJ> : 













GOTO 3240 










IF J-l THEN 






3 














GOTO 3240 










IF J=l THEN 










IF J=2 THEN 




2 




=T9< 


GOTO 32*0 






























SOTO 3240 










DEF PROCDPPVAL 


























2-0* 


P HOC GAME PL WY 








ENDPROC 













E TO STfiRT GO 






FOR I=1T0K4 






IF FNRIW3-W4] 


|RS(T> THEN Z1=Z 




IF Zl-T THEN 






IF Z1=Z THEM 






PROCDETPDSS 






procpossrIg'' 






If'iwt'tIw 


PROCPLP.VRP.N 






PROCRONPLAY 






>*-Z6*!PRDCM0VGPHI 




PRINT:PRDCUA 




















PR DC SCORCH ON 


3740 


IF 1-22 THEN 


PROCHfiLTIlt 



JT M NOTHINE ELSE OF SIC 

DURING THE GRhlE" 
JT:PRINT ,, FINBL SCORE" 



IMF BEING PLP.YED" 



2760 
2790 
2 BOO 

2B20 

2S40 



2371J 
2BBO 
2S90 
290O 
2910 

2940 
2950 
29GO 



Z*=GET* 

ENDPROC 
IF F91J) 1 
GOTO 2&i< 



I GOTO ZBBO 






1 RETURN 

1 DEF PROCPLRYCHECk 

] FDR 1-1T0U& 

1 IF<DXU,H2>-T)*<0; 

1 PROC0PPVP.L 

) ENDPROC 



3irS0 


IF J-l THEN 


3260 


IF J-2 THEN 


327 O 


GOTO 3 200 


32 BO 


IF J=l THEN 


3290 




330O 


GOTO 3240 



:iDE THE RESULT" 



;«-■ shoots 1 



© 







4J 10 
4120 


i I-' 1 ] IT:, 

PROCFORM 






!K§^ 




PRINTF1;" ";C* 








NEXT Fl 








PHDCZlF5t(TJ.-E9IPfiINT 












NT"WHOT ORE THE DEFENCE PLRN5 BDSS^" 










FD 


FI=1T03 








4180 


PROCDEFTfiCT 




















4:0'.. 

41 1 


NE 
PR 


CZiX»<T)=E9>PRINT 




1 .. ■■ 




4010 












4020 


DEF PRGCSCOUTHEP 


4 230 


FO 


F1-1T03 




6030 


D4-0 




PROChTThCT 












NTF1;" ";C* 




CZ-B3 


• IZ-S41-0 THEN D4-1 


41E.O 


NE 


CZ:Y%<T)=E9:PRINT 




THEN 


J*="VOUfl SCOUTS 


t-X-. 


FO 


NT"WHflT ABOUT MIDFIELD 8038?" 




REPORT ON "+«»(Z> iPROCMOVEPRI 


4.300 


PROCMIDThCT 




11060 












4070 


IF D4-1 THEN PRDCCONTINUE 










40 SO 


PRDCREP' ENDPROC 


*"r. 








4090 


DEF PROCTP.CTSEL 


PR 


BOBS'" 1 




CLSs PR I NT" WHAT FORCIQTIDN 










SHALL 


ME PLP.Y BOSS""' 


' .: 


PROCFREETACT 




j -■- 


PTOCFREEDEF 


4330 


NE 
PR 


CZ!T%(T)=E9JPRINT 




1 443(. 




440': 








f;;^: 


NEXT Fl 

PRGCZ : U* t T ) -E9 : PHI NT 


4410 


FOR F1-ITD3 




illt'i 


TH 




4680 NEXT I 












4690 ENDPROC 




4d B - 


PRDCCORNTOCT 






47 OO DEF PROCDETPDSS 
4710 G1=FN0<20> 






PRINTF1;" ";C* 












NEXT Fl 












PR0CZ:VK(T)=E9:PRINT 










";**!( 


PRINT"WHfiT O&OUT THEIR CC 
FOR F1-1TG3 


RNERS 




4750 IF Gl>17 THEN ENDPROC 
4760 Z2=2: ENDPRDC 












4770 DEF PRDCPOSSREG 






PRINTF1;" ";C* 






47B0 IF 740 1 THEN ENDPROC 
4790 IF Z30Z1 THEN ENDPRDC 
480O Z8*=" REGOIN - 




4 5 t" 


EM DP ROC 






4810 ENDPROC 

4B20 DEF PROCPLflYRON 






E OPPOSITION PLOVERS 7 NF 
INPUT"TYPE V OR N "D3* 






4830 A3-FNA ( 10) -1 i Z5«=K»IA3) 

4840 IF Gl>10 THEN Z6«=Z9* (FNO ( 1 0) 

4S50 IF Gl>10 THEN ENDPRDC 


" 


4&;<o 


IF RSC<LEFT«(D3*, 1) >=7S 1 


HEN 




4860 A4=FNBUO)+l 

4B70 IF 04=O3 THEN 4B60 






PPNP.ME1ENDPR0C 






4380 Z6*=K«iA4> 






IF 0SC(LEFT*(D3», 1)1 OQ9 






4S90 ENDPROC 




?; : 


FOR I-1T012 

PRINT"ENTER NONE OF PLHVE 






49 OO DEF PROCRP.NRLAY 

4910 A3-FN0 110) -1 ■ Z5«=Z9* (S3) 

4920 IF Gl>10 THEN Z6*=K» (FNO 1 10)* 








LETTERS-' 


4930 IF QDIO THEN ENDPROC 












4940 «4=FNO(10)*1 












4950 IF 04=03 THEN 4940 






LONG. RE-ENTER. ":GQTO 46 






4960 Z6»=Z9* (04) SENDPROC 
4970 DEF PRDCMOVEPRI 




















4980 IF LEN<J»><-39 THEN PRINTJ* 




^!= ■ 


GOTO 4980 






4990 IF LEN<J«> <39 THEN PRINT 
3000 IF LENIJ*) (-39 THEN ENDPROC 






DEF PROCSCDRCHQN 






5010 FDR J»39T01 STEP-1 






Z4=l:G3=FNfi(7) 






SO20 IF ASC<MID«(J», J, 1)1-32 THEN 






IF Bl <B THEN Zi«=Z6» 






LEFT* (J*, J 1 i J«-RIGHT»<J«,LEN<J»1-J) 




|?o° 


IF El>7 THEN Z1*=ZS* 

DN G3 GOSUB 5120,5120,51- 


0.S12 








,51 


&0, 5160,5250 








ENDPROC 






















=s 


IF CX<Y*1Z3), X*<Z8)>) 10O 


G3*B4 


THEN PROCGQPL: RETURN 




w 



© 




IF P,BCIE«>>51 THEN 61« 

ES-VP.L. IE«> 

END P ROC 

PRINT"P1_Eh3E RE-ENTER" 

GOTO 60B0 

ENDPROC 



PROCSCORE : PROC5UB 



ENDPROC 

IF Z1=T THEN B=B+1 



I THEN H*=" "+Z9K1+FN0' 
[4 THEN 21*=Z1**H» 

:a then j«^zi»: procmovepf 

!6 THEN J*=Z11 
i : PROCHOVEPR I I 



r!2"l JENDCROC 



z«-iset* 

IF Z*="" THEN 6550 
IF OSCfZ*) OB3 THEf 



6650 PRINT:J»=K*(> 
6660 Z«=K«lh) lK»(i 
S=W3+f-<Ul/: 



THLJDBES OFF TO BE REPLACED BY " +K« I 1 2) ' PRDCMDVEPf 



6730 


PRIM 


P.*(E) ;" ";M*IE, 


■ ■""' 


■ J R1^ 


;PRDCCONTINUE 


6760 
6770 
67SG 


DLF 

CLS: 


RDC5ECSTP.GE 
RINT"GR0UP5 FOR 


6 7 'JO 


PBIN 


"op?''- ; C»».,6». 



|2=2:PROCSECRES 

i2=I=PR0CSECRE5 
52=3=PRDCSECRES 



DEF PR0CSECRE5 

P ROCJ : P ROCPLAYCHECK 

CLS:PR1NT"RESULTS FD1 



GO SUB 

next : 



3P. ";CHR*( 1*6.4 > ;" " ;fi»(H> ;" " ; 
=29 THEN PROCCONTINUEiPROCTOBLE 
ENDPROC 






LEAGUE TABLES" 

;»-6ET» 





7100 


IF I«- u " THEN GOTO 7090 

IF 2*="L" THEN PROCTABLE 










Dl-Dl+1 iENDPRDC 






^M_ 


7130 


DEFPROCJ 
FOR I- 1 TOO 
FOR J-1T03 

a«ii, j)'H»n, J) 






^t\ 


7170 


NEXT J1NEXT I 
ENDPRQC 






/ \ii\Vm 




DEF PRDCSEM1 






J Jl V\\r-7r^^? 




CLS : PR INT" SEMI -FINP.LS"! PRIM 






i^vvPsr 


7220 


FOR I=1TD4 
PRINT 






X^\\l\l 




NEXT 1 






-aWmI. 




PRINTA*lS6f 1! 1 ; TABUS) ;"V. 










FOR I'lTOa 








7260 


PRINT 


















72B0 


PRINTS* (SB (SI) ; TOE* 116) ;"V. 




";P.»(Sai4J> 




7230 


FOR I=1T0& 






£^^m 


7 -.;.(! 


PH0CCQNT1NUE ■ 










ENDPROC 








• : -' ! ',- 


DEF PROCSEMIPLAV 
CLS;PRINT"BORCELONO St hi JU 


V 138 


SPRINT 






PRINT "SEMI -FINAL "'PRINT 






%y ^f 




»™am.«>SBi3> 







© 



SI 


CLS:PRINT"5EVILLE 6th JULV J98I'"iPBlNT 
PRINT "SEMI -F I NflL" 1 PRINT 

PRINT«*(S812> ) ;" V. ";P,*<S6<4>> 

PRDCWBIT 

X1-S8I2) !X2-SBt-l> 




7*eo 


PRDCR 




7500 


DEF^PROCB 




7=20 


IF RND(l>>86/90 THEN PROCD 






IF 1-45 THEN PROCE 






IF I/10=INT(I/lO> THEN PRDCF 






NEXT I 




7560 






7570 












7590 


ENDPROC 




7600 


IF V=i THEN ENDPROC 

IF E1>E2 THEN Nl IW5>=X1 




7650 


ENDPRDC 




7660 


DEF DROCD 




7670 






7680 


CL5iR9=R*fXl)/(R*(Xl>-tR%lX2> ) 




7690 








IF R7<R9 THEN J«=0« i X 1 > <-" HIWE SCORED AFTER "+STR»(I)f 


MINUTES" 


77 IO 


IF 1=1 THEN J*=LEFT*<J*,LENCJ*>M> 




7730 


IF R7<R9 THEN E1»E1*1 








MINUTES" 




IF R71R9 THEN PROCMOVEPRI 




7 7 60 


PR0CW3IT:ENDPR0C 




77B0 


DEF PROCE 

PRINT:PRINT"HnLF TIME SCORE:" 

PR1NT:RRINT(5»(X1> ;" ";E1;" ";Ei«<X2>;" ";E2=PRINT 

DEF PRDCF 




lalo 


CLS:PRINT"SCORE QFTER '•■If MINUTES ";":■' 




7850 


PROCW1IT1ENDPROC 




7860 


DEF PRDCG 




787 


CLB:PRINT"«FTER EXTRO TIME" 




7890 


IF R4-1 THEN E1*E1«-FNR<3> 




7^ 


IF R4-2 THEN E2-E2*FNA<3> 
PR0CWO1T I ENDPROC 






DEF PROCFINftL 




7930 


V-HCLSIPR1NT"MQDRID lltH JULY 1982" 










SI 






79B0 


PRINTB*IN1 (I)> ;" V. ";P»(N1<21> 
PRDCH0IT:DR0CtJOIT 




eo^o 


■CLSlEl-0iE2-OIXl=Nl (1) 1X2-N1 (2) 
IF Xl-T THEN Z=X2:PR0CGSMEPLflY:El=B!E2=CiG0T0 8040 






IF X2-T THEN Z-Xl:PR0CGftMEPLRY:El«C:E2»BtGGTQ BOAO 




8030 


ENDPRDC 






DEF PRDCR 




8O60 


IF Xl-T THEN Z-X2iPROCSBMEPLHV:El=B>E2-C:P«OCC'GOT0 80 




8070 






8080 


PR0CB1PRQCC 




8090 














M%(X2, 6>"XUM*<X2, 13>-E2""S(X2, 20I-E1 




luo 


IF (Xl-T) «(X2-T> (>0 THEN PRQCCONTINUE 
ENDPROC 












Ac* plloti only need apply for this 

ralon into the wild blue 
yonder . Wall, it'. Dot raolly the Hying 
you have to worry about. It's getting 
your undercarriage planted firmly 
back on the ground that i the 
problem. 

You must try to land your aocteni 
lighter plans in the middle of a city. 

away by bombing the 



) REM #•« BOMBER by J. Pirn 

) HI5CDREX-0 

) M0DE3lPROClnltlPR0Ctltl«lMODE4iPROCin«tt ! (.FEOO-MO200A 

■> PXX«PXX*ll IF ?FNS:PI7.*2,PYX,N7>-12(>THENPROCcr*sh.-BOT0370 

3 I FPX7.-40flNDPYX< >I7THENPR IN H All (PXX-1 , P"7. ) i " " i : PXX=0 : PY3 

3 IFPXX-37flNDPY7.-7THENPR0Clsnd:GDTO40 

!> IFPX7.-OGOT090 EL?EPRINTTAB<PXX-1,PY7.> M "(PLANE*; 

3 IX-INKEY<0)1 IFIX>0ANDB0MB7.=OPR0Ccre>3te:>omh 

3 IFBOMBX-lTHENPRDt.mov.aamb 

3 PRINTTABdl, 1 I |SCGRE7.!FORLX-lT0400:NEXTL7.;GaT050 

3 QEFPROCcr-»»t»bomb 

3 BOMBX-l:BX7.=PXX:BYX-PYX 

a ENDPROC 

DEFPROC move bomb 

F0RLX-1T02: IFBY7.=PY7.ANDBX7.-PX7.G0T017O ELSEPR I NTTAB t BX7., BY" 

BV7.-BYX+1I IF ?FNS(8X7.,BY7.,NX>=126TH£NPROCexpl OS ion: SCORES' 



2O0 PRINTTAB(BXX,8V7.> !CHR»1227> i SOUND 1, -15.BY7.-2, 1 

210 NEXTL7.:ENDPROC 

220 DEFPRDCexplosis.T 

230 FOREX-0TORNDf41:30UNDO 1 -15,4,l:lFJ)Y7.*e7.>2')THENE7.-5:NEITE7.ILX.=J:BOMBX-C 
PROC 

240 PR1NTTABIBX7., BY7.-E7.il" "UNEXTEX 

230 BOMBX=0;L7.=3lENDPR0C 

270 FORLX-lTO50;50UNDl,-15.L7., .OS:NEXTL X 

2B0 F0RL7.-1TC.2O: IFLX/2"INTILX/2> THENCH7.-22BEL5ECHX-229 

2?0 PRINTTAB;35,79)ICPR*tCK7.)lF0RD7.-lT075O:NEXTD7.;NEXTL7. 

300 PRINTTABI12, 12>l".iO0 BONUS PP. 1NTS" : FDRL7-- 1 T0500Q: N£ X TLXi PR INTTBB II 2, l: 
"lSC0REX-SCDRE7.*10O 

310 PRINTTABf33,29) j" ";CHR*(30) 

320 PYX=29:F0RPXX=BTO36:PRINTTAB(PXX-l,PYXM " "!PV7.-PY7.-.2:PRINTTAB(PXX 

|PLANE«lFORDX-lT03O0lNEITD7.:NEXTPX7. 

330 SKX«SKX»1 I PX7.»llPYX-3l ENDPROC 

340 DEFPROCcr*mh 

330 F0RL.X«lTO20:VDU19,0,RND (15), 0,0,0, 19, 1 , RND U 5 ) , O, , 0: SOUNDO, - 1 3, RND ( 3 
INEXTLX 

360 VDU19, 0,0,0,0,0, 19, 1,0,0,1 

370 CLS:VDU19, 0,0,0,0,0, IV, 1,' 



410 IFSCOREX>HI SCOREXTHENHISCCREX-SCOREV. SPRINT' '"Wow t Vol. 

*42o"pRINT F, "Tod»y-» high icore is I- " [HlSCOREXi SCOREX-Oi 

430 PRINT" 'TAB(B) "ANOTHER GAME <Y/N> f 

440 A*-GET*. IFf 

430 MDDE71EN0 

440 DEFPROCmcmn 

470 CLSlvDUl?,O,*,O,0,O, 1 

480 PRINTTQ.BI5, 1H "SCOREl 

490 PRINTTABIO, 30> I STR I NG« f 40, CHR» f 233) 1 

300 F0RLX-3T036: BH7.-RND (3»SKX> I PR1NTTAB 
l»IllHCHR»(S)liSCUNDl,-13,B7.»3,l:NE»TSXiF 



"IHISCOREX 
1T0BH7.IPRIN1 



© 



) VDU23, 224, 24, 28, 31, 0,0,0,0,0 
) VDU23, 225, 63,3, 253, 255, 13,2,7,7 
) VDU23, 226, 228, 4, 294, 252, 244, 4,4,0 
3 VDU23.227, 126, 60, 24, 60, 60, 60,60, 24 
380 VDU23.22B, 60,60, 24, 126, 1 53, 36, 66, 1 29 
390 VDU23.229, 189, 189, 153, 126,24,36,66, 129 
60O VDU23,230,0,24,60, 126, 126,90,90, 126 
610 VDU23, 23 1,126,90,90, 126, 126,90,90, 12- 
620 YDU23, 232, 0,0.50, 126, 126,90,90,126 
630 VDU23 233,255,255,255,255,255,235,255,255 
640 PLANE*=CHR» (224) -CUR* 1225) *CHR* 1226) 
630 SCOREX-0: i PX7.-1 i PYX-3.BXX-01 BY7.-0: BQMBX-Oi r- 
660 DEF FNSlX,Y,N)=H[riEht+lV*40**)-B»N 
670 ENDPROC 
6B0 DEFPROClnst 

700 A*-GET»: IFaUV'B0TO71O ELSE IFAS="N"GCTD 7' 
710 CL3IVDU19, 1,3,0, 0, Oi COLOUR 1 1 PRINTTA8 m;j, 1) i 

730 PRINT-" by destroying all the city skystra) 



) 5TART YOUR FLIBHT" 






IFSK7.>3ORSKX<lG0TD790 ELSEENDPROC 

B30 TL«-"B U M B E R" ': f6rL7.'1TOLEn'(TL») [COLOURS: PRINTTflB ILV 

^840 COLOUR2.PRINTTASlL7.t5. ll+BKl I " " ! CHRS 1 10) J CHR* (B) .CHR»( 
2,llNEXTB%:C0L0URllPRINTTAEItL7.*5,16)Sr1ID»(TL*,LX, l>i:SDUNDO,- 
iNEXTDXlNEXTLX 

850 FORL7.= lTQ1200O:NE«TL7.: ENDPROC 






AUEN 
ATTACK 



MxmzzEznzsm 



■r-lheoi 



A vast Heel ol ali 
sweeping majestically 
your tiny space fighti 
surviving defender oi u rum 
doomed to destruction. Doomed 
unless you can stop the attackers. 

You have to knock out the alien 
battleships one by one while 
their mother ship dodges up and 
down the screen attempting to 
wipe you off the face of the 
universe. 

Unfortunately for you this 
mothership is invulnerable. 
But the following fleet can be 
destroyed. You simply need to be 
a good marksman. 




o 



SOS MISSION 



1 PRINT"."]" 

18 P0KE59467, 16 ' F0KE59466, 7 
F=59464POKEP,0 

ii Dms*ci0> -Birisaeo 

15 FOP Y.= l TO 13SC:;>=0NEXTK 
20 DIMEC18> 

30 E< 0=33230 

31 E<2>=33189 

32 E<3>=33145 

34 E(4>=33150 

35 E<5>=33179 

36 E<:?>=33393 

37 E<6) a 3326£ 

38 E<8>=33197 

33 EO>=33233 
40 E<10>=33151 


BY NIGEL STUART 


RUNS ON A 4000 SERIES PET 










S=3 


■w n*= B*= c*= D*="" E»- M " 

FJ=" " ■ G*=" " ■ FORF=1TO20S ' NEXTF 

91 K=0 

■^ fiHsl IE SO06 


trfYftM 

IN 16K 


ma 


lifl PRINT "WHWMfMWI 

i:@ BH=?3218-33=33244-S5=S 36-332C 
I'-:! F • =■ ■>! 

14B PRINT M aSMi!M!!Bia?Wi!H!HW»ttK!M»*I FUE 

aiMaaiffiiKKFjffliBjOTr - 

160 PRINT "*WBW!!l-ffl!!MP.WF!Pl-'L''M!!lWWi!JI 
1 170 PR I NT " iWflsW! | MS(!BMBlBl(!l*If!]p^ 
1 380 FU*999 SC=Oflt1=30 


S I OH" 
4 


1 fitIO 1 




L 1 1 SCORE ! 






—J 














































327 C*=C*+" " * 

330 d*=d$+" wmn ** 

335 D*=TJ*+" * # 
337 D*=D*+" ■■■ * » 


« 






340 E*=E*+" * 












347 Et=E*+" 22! 








1 Z --^A pf=F*+" » * wtmsKKmrnmam " 


370 Bt=f\t+?.t 1 

371 C*»fifi*+C* 1 

972 Ii*=hlfll+D*l 

373 E*=flFlJ+E* 1 

374 Ff=fiflt+FI 1 

375 G?=fi$+0f | 


1 ■- F$=F*+"M-i" WmHKHKKmttmb-^ 


1 see g*=g*+" .' - wmmmmmammme, -■ 


1 ,.:=: ,] . :.,1 h " .■■■ 








1 331 PRINT' ^IflCftWri 

| 432 FPI'^"=i*:!l?K"W!'*-'' **■:";: 















it .»d C*=f1IB*tC*,2 

102@ dj=mid*'-:ot.2, 

1030 ES=MID*<E$,2, 
1R40 F*=MID*<F*..£.. 
1050 G$=t1IIif(G*,2. 
1110 PR I NT" ^SIMMS' 

1129 PRIHTMIIii-CB*. 

1130 PRIHTMIIif^CJ, 
1140 PRINTMMO*. 
1145 PRINT"ffifi" 

l use PR1NTMIB*<E*. 

J 116Q PRIHTMIWtF*. 

1170 PRINTMIIIXO* 



LEN<8*>5 
LENCCt) ' | 
LEH<Dt>) 

LEN<E*> 
LEIKFS) 

LEt-KG*) 



1 S1=PFEK' , '-;H-' fi2=PEEK>'3H-H> ■ R3=F££KC3H+2> 

pniTpcp i ^F^i.Hl ^0KE3H + 2 100 POfESH+3,32 , 
3 SkIp Mfl Fc/eF 1 F t EF EF 4 F h EF G SH 

I S SlJ?fc a a2£ 1 gfKfi «Si-"S £ ESS BS SSl 



i ii- ni = it'i 'Jr. ni-.v ■.■!■. ,..-■-■-■ -■"■■- 

1 IF Fi2=lfi2 np h2=S3 OP Q 2-£5 ORR^llS Or. 

' IF TO=3 

; if fll=Rr; OR R2=36 OR h3=3c THEN 3000 

1 IF fll=68 OR R2=ee OF PO-tO r|-fE: i - l ^' 

3 priht" ac« — SSSSSKSSHwt^ 

3 PRINT" HMHMKMl ! S52E KJ 

3 PRINT"* ■— MWWMWWSC 



= 246 THEN H^OOl 
-46 THEN 200&r 



1440 



■CNI 



1520 IF 0-18 THEN . 
1538 IF a=-*i THEN ! 
1^40 IF B->22 THEN 
1550 IF Q==48 THEN 1 



P0KES2, 32:P0KES£+1 -■ 
FH=PEEK<3H>-R2=PEEK 
POKESHvias^POKESH+i 



3220 RETURN 
I 230G* IF flJ1-a THEN I 
1 RM=FII1-1 



-J 20 
421 
J22 
42 :■ 
424 
425 


Z=SH+3 
Z=Z+46 

IF PEEK<Z> = 1S2 'HE L - 2^ 00 
IF PEEK<Z->-83 THEN 2808 
IF PEEK<2>=65 THEN 2.-00 
IF PEEK(Z> = U5 THEN iyCtr 
IF PEEK(Z>=123 THEN 3o05 
IF PEEK<2J»134 THEN 3460 
F!lKE",.31 POKER, 100 
F0R2Z=1T04 : POKEP, 200 ' POKE 




J 4^-1= 
_j-0 
.435 


P 



:K£P.200 

RET-: 



rFOKEF,110 : HEXTZ; 



FOKEP, ■ F0PZZ=1 T 02U NEJ-'TZZ ■ PQKEZ, 32 
i GOT" 2428 

RETURN 
! Pni::E:-:4.:":2-P0KE£4+l . 32 ' P0KES4+2 ■ 32 POKE54+: 
i 15-0 L = INT<RHI"'@:'+'::' 
i S3=331b4+CL*40> 
i RETURN 

S8«0 L=IHTC.ftNB<0>#3) 

12752 S6=33164+("L#40> 

12753 POKES'*. 32 : POKESS+l,32 : F0KES3+2,3£:p0KE5:?+3, 32 P0KES3+4, 32 | 
i RETURN 

I 2S00 FOR F=i TO 25 
I2S10 J=IHT(RHDO?:.'*4> 

|2320 POKEP, J*25^IF J=l THEN F0KEZ.86 
IF J=£ THEN P0KEZ..214 
I 2H4fi IF J=3 THEN P0KEZ,32 
|2S50 FOKEP ,J+20 

2S6B NEXTF : POKER, ■ SC=SC+1O00 : RETURN 
I 290G FOR X=l TO 25 
2918 J=INT<RNEK0>*4>+1 
2 ^2R POKER, J*10: IF J=l THEN P0KEZ,S7 
2*30 IF ,T=2 THEN P0KEZ..215 
.2*40 IF J=3 THEN P0KEZ,32 

I 295* POKER, J*2O+50 : NEXTX : POKEP.. ■ Si>SC+50U ■ RETURN 
3000 P0KES2+3, :" 



005 FOR 2= 


1 TO 10 




010 POKER, 


210:FOKES2, 


32-P0KES2+1 


S015 FOKEP, 


170-P0KE32. 


]:2:P0KES2+1 


'920 POKEP, 


180:POKES2. 


32-P0KES2+1 


025 POKEP, 


250:ROKE32 


Z2--PGKES2+1 


638 FOKEP. 


240-P0KE32. 


168 P0KES2+ 


033 POKER 


125JiOKE32 


102:pE3KES2+ 



: P0KES2- 



16 



JOT0314S 



I 3U40 NEXTZ 

13050 F0KE32,3: - "■■ 

I 3100 FOR X=32"b3'033"- 

1-3110 Z-PEEKOO 

I312S IF Z3I2S THENZ^Z- 

:-:130 IF ""'128 THEMZ=Z-i^s 
.3140 POKEX,Z'NEXTX 
I 3250 FORF=1 T OS00 NEXTF-PRINT"^" 
I3260 GOTO 4500 
I 33d@ FOR X=l TO 50 

I 3310 J=INT<RND<0>#4) 

I -&2Q IF T -l TMEN FOKEZ 1 FOKEP 210 R-jKE* 1 :■■ 

I 3:^:30 IF J=3 THEN FQKEZ, 123 ■ POKEP, !7Q POKEP . 

I 3340 HEXTX 

I335B RM«flH+18 

I 3350 RETURN 

I :;4O0 FOR X=l TO 5S 

1 3410 J=INT<RNBC@>*45 
3420 IF J=l THEN P0KE2, 134: POKEP 

13430 IF J=3 THEN PuKEZ , 5 POKE*- J 
POKEZ+1, 



IFJ=2THEHP0KEZ+3SM71 
4120 IFJ=3THENF0KEZ+3?..32 
I 414@ POKEP,J*10IFJ=1THENPOKEZ+41,43 

4150 IFJ=2THEHP0KEZ+41,171 
I 4150 IFJ=3THENF0KEZ+41,32 

14170 NEXTX POKEF.0 _ rn __ „ ,, „.,_ 

I 4130 PuKEZ-::9,32:pnKEZ-41,32'PuKEZ+41-:2' : "jKE_*:^--^ POKE 
I 410@ S5=0L=IHT(FHri(0)*3> 
1 42i"""i :=::--i=33164+'::L*40::' :5C=SC+250 
I 4210 RETURN 

I 4^00 REM ****** END ******* 
14581 GETN*:PRINT"il"N*:IF N*0"" THEN 4501 
I4S10 PRINT"!!" 
I -£*iJ FR]NT"»M»MM>MH>iiaj ftHE OV ER" 

I *?-;3 r-PT \ r " rt ttiii w »>im »n 

I 4550 FORX=lfOi0 IFS03..X /THEN4570 

|S"m SSramimiaE^ enter your name fop the ■ 

I 4590 PRINT"*) 

|4h:nij INFUTS*'>:.' 3 00=30 

I 4*10 IF L£N<S*OOoM2 THEN 4570 

|j7ft0 FmR F = l TO 30p:HE;'TFFRI l -ir''T' 

) FPINT"(!»M»PiWlVOU JUST SCORED"SC 
i PRINT'W 
FORX=1TO10 
I4740 PRIHT" >W iW >PWI" S<X>" U S*(K) 
i POKEP.X*20 
i FOR 2=1 TO 30-NEXTZ 
i NEXTX 

i print "SWBWM»PM»iaKPRESS RETURN;" 

i IF PEEK<151>0 27 THEN 4320 
| 4966 OOTO90 
=,089 EHB 

^mh REM ******** STflPT ****** 
S001 GETNt 
-:00S fiilTO 7010 

S010 RESTORE 'PRINT":!' -P0KE59453.. 100 
6015 PRINT"KMK«S«n BfcMBMHHS 

,"020 REFlDZ J ■ REhDZZ POKEP,ZZ 
-"02-, rtETM*-IFN*0"" THEN ^500 
5030 IF Z*="-r" THEN 6980 
■5058 PRINTZ* 

IS PnR'x=l TO 20'FOKEF J ZZ-FOKEP-ZZ-1?-^— 
6110 FOR X=l TO 10 -UKEF.ZI-MO POKEP. ^Z~10 ' hES. 
b 1 20 FOKEF . O ■ FOR::-; = 1 T0500 ■ NEXTX 




"120 
. "125 

^159 
| 7160 

. ri7S 

I ?isa 

7190 
-2139 
7210 
-220 
7236 
"240 



FOR Z=l TO 4 
PRIHTTABUi) 
FOR 2=18 TO 
FOR 1=1 TO £ 
S3ETNS- IFMS 2 
pRINTTflB' : I 



FOP 



= 10 



■U" POKE*, 2 : !'2- 



-:-:e- 



: ,Z-NEXTZ-OKEF:0 



9000 

2010 

90 15 

afi2P 

| 3030 

9O40 



2120 
9130 
-140 
3150 



FOP 2=1 TU fU HE,..- VT ,-.. T -.,, 

opiMTTflE' 10."' i.O.i. l;z._^ 

FOR 2=100 TO 1 STEF-ll'P'-'KEr 

FOP "=1 TO 40'NEXTZ 

WTMTTflB<10J"S-O.S. MISSION T r .. _ 

FOR 5=1 TO 1@0 STEP11 POKEP Z'MEHTZ °OKE° 2 

POP 2=1 TO 48HENTZ 

FRIHTTflBa0>" 

™I"4^o ™ ■ D piNT"rM«wT!ifi»m--»»**»^****^" r '^ ; ^ 

RET HJ-IF H*C" " THEM 7510 
FRINT'TT RETURN 



data 
urta 

TjfiTR" 
DRTR" 
BfiTB" 
DATA" 
IiflTR " 
URTA" 
DATA" 
DATR" 
IJRTfl" 
DRTR" 
DRTR 



MISSION.' 



£13 
- 190 
C> EV NIGEL STUART 29 : 3 : 1982- 



11 ■ 130 



", 179 



'"WELCOME CflPTRIN VOU RRE HOW PLACED". 
TH ,-HRPnE OF 0!!F LRTSST SPRCE-CRRFT. ,2 
VnuRMIsllON IS T3 2!- A TUNHE^ 220 
ON AH RLIEH PLRNET ANI 122 R-V l-'2 
AS MANV OF THERE IJ1BER0R0UNB"' 138 
ERSES, flMO DUMPS AND FUEL DUMPS ">240 „ 
RS VOU CPU BEFORE VOU RUN OUT OF FUEL, 

100 



A" VQU*WRV GRIN EXTRAS FUEL RND ANO EV",130_ 
DRTR" 
DRTR" THESE ARE SHOWN RS HRH AMD IF". -■ *@ 

DRTR" "..5S 

DRTR" THE CONTROLS FOR 

DRTR" ARE AS FOLLOWS -", 

DRTR" ".,200 

DATA" 3 TO MOVE UP. ",230 

DATA" 2 TO MOVE DOWN.". 210 



SPACE-CRAFT" 



32-3 

9250 

9260 

9270 

. 3280 

I 3290 

, 33O0 

3 310 

3320 

3230 



DRTR 

DRTR 

DATA 

DATA" 

DATA" 

DRTR" 

DATA" 

DATA" 

DATR" 

HRTA' 

DATA 1 

DATR 1 

jRTA' 

DATA 1 

DRTR' 
DRTP 
DATA' 
DATA 
DATA 
DRTR 



6 TO MOVE FORWARD. 
",170 

A TO FIRE FORWARD. 

7 TO DROP P BOMB ■ " 
",150 



. 1 90 






POINTS AURRDED FOR HITTING ",200 

* = 580" ■ 90 

* = 1900", 33 

4 S B =250 ",9S 

VOU CAN HOT HIT O" ■ S« 

&m = 10 UNITS OF AMO",90 

",150 

GOOD LUCK!! ",200 
VOU WILLNOT BE ABLE TO RE , URN ^ 
vnu WILL BE BLOWN UP.".2 ,a 
ENT TRV TO GET AS ^AR RS 
WE APE COUNTING ON VOU 



3420 JjfiTR" ", 


9430 


DRTA" "■ 


9440 


DATA " " - 


9450 


DRTR" "■ 


94 £0 


DATA" " ■ 


3470 


DRTR" ". 


3480 


DRTR" ", 


3490 


DATA" ". 


-■'■:■;- 


DRTR" " 


3^10 


DATA" " 


3520 


DRTA" " 


9520 


DRTR" " 


33-23 


DATA " 



OU CAN. 



iCtw 



*IFC-BjCOL0UB3.B-8 >i ;.; 
,61F SM-i *"* 

5«ffi» DBCW WMBEPS 






KW0VE42.6I..- ... - 
S3H0VE7S.el)IMW3>« 



46 1 0WU39, 6ii W(W« . 6!i 3Bfi"»S ■ 6' 



,!,Ul»BHIB8,«iWW«ie».6' 



IT WE COBWEB- FLUSHES" 



e,DB*W«7,158'M*PU*3.1! 



590BJW3S, 158 

68TOUE43.138iWfim7, 

611*IVE31,1W jWFIU!] 

6Sn<NE59,t3«sMfW59. 

. .-. ■ 

U77 IMiDPflUTB.lSliWU'S.lNjWtflU", 

6wioreea.v5e;tiwus6.is»iiiBflHM,wajD«»«i 



mmss anwwws-i] 



2, X-*B> COLOUR 1 
3>x.7B:Ca-0UR3 



77 COLOURS 



How good m 

Bol wry 
Copy hone 



good, ihisii li 
them to ran 

ib the Atom di 
plays in hi-res graphics a 
•t« increasing s — —• ' 



BVE-COUSSO" 



lember- Ona w 
i you have lo 
ir again from «erat 



iu thlnkin 



AW 



BY NEIL DEVLIN 



RUNS ON AN A TOM IN 12K 



1© GO BUB 63 

IB REM " _ 
SO FOR 

-jflPER 3; FLASH 



I PRINT 



LOOP 

. to a© 

THEN PRINT BT 11,*,' 






Viaa let 



SET UP PLAYER i GM< 
-I.INT IRND*aiJ +1 
,-TMT IRNDjSlltl 
j 19, 21 : DIM blS' 2 ' 

ill l1? iTLi?«?wT cm»«; 

-21 LEI- atjJsi-INT IRND*31 

ill SR^j LET d= b 

US pglNT^RT 3 !..^ PRPEB a; 

199 PAUSE _ 

195 REM MOVEMENT LOOP 

208 FOR K=l TO 3 

210 LET c=a 

111 35 feWflBBR 1 - 



How long can you evade the nasty little ghosts that 
pursue relentlessly around the screen? Your only 
chance Is to force the ghosts to step onto anti-matter 

First there will be one ghost after you and when 
he has been disposed oi two more will appear to 
carry on the evil job. When the two have gone three 
will appear, then (our, five . . . 

Watch out that you do not get caught by them or 
step onto an anti-matter spot or you will come to a 
nasty end! 

This program uses all three of the Spectrum's best 
requisites - sound, colour, and user-defined graph- 
ics - to make up an exciting arcade type game. 

When run the computer sets up the screen and 
waits lor you to press a Irey before starting. Your 
little man is moved by the cursor keys. 



ivm-t.vw^JUlM'IIM.U 



360 NEXT j th£n NEXT ^ hem go TC 
^SS MCXX* „ 






pRPER »' 



t?S 1„ t pr!5? „ 

til i|i# s. c -s d .'. 

mno \mi. TO 3_ THC N NEXT J 

tlS " •^•tWWsRBI .,,,»> 



■ i4»*^"|?*«25j 



|U!«JL: 



535.3c- 53c 1 
.' ■■■- -.. 535-C 536 
& DIMCL-r,4>'FGRt-lT02'F0RJ> 


TiX:F?EflCCH 


' 


- :-::04iR£BD[>Rf 


3 

■ :next 

1,31 

10,15 
10-10,6 

J. 15 




i;o i( :.| I, IMiTFlVTinul *= 


LI,, 


» 



lis PP ssv »» ,; cu ° 

, FLH5H J r .. 

■=*« F °."j URL * BI " 




SI, SI: c 
tor finding side la 

Baffled, bolhered and bawil- direction In which player is 

dered? No? Well you will be lacing. CI. CI: co-ordinates 

alter trying to iind your way lot printout at end ot game, 

out of 3D-Ma»l DW, (4): depth ot wall lor 

You'll find yourself In an •ach distance. DL (2.2): 

impressive graphic repre- code* of diagonal line 

sentaiion of a mindbonding graphics. VL 12): codes ol 

mait once you've pro- vertical line graphics. 

grammed in all the twists DR (4): prime number lor 

and turru. All you have to do testing the pretence of a 

is escape, wall. S: horiiontal space 

to move left, right, and lor- [alio X). AS: temporary 



neat little 180 degree "flip" 


(10, 10): number ol each cell 




for lotting lor the presence of 


which way the exit is. 


a wall. MZ: choice ol maie 


When the elusive exit is In 


US: HZ-80S time string. CA 


sight a letter E' appears on 


advancement ol cell from 


the screen. A musical jingle 


fTI.TIh. SD: side being tested 


displays the time it took you 


for a wall. 


able. TN: direction of turn/ 


to get out of its mysterious 


correct Input test. PP: posi 


mate. See you soon - we 


lion ol poke (location). CI 


Variables/ arrays 


left hand corner for factng 


CL<2.4): coram location on 


wall. C2: right hand corner 


screen of walls. TV: tempo- 


for lacing wall. WH: wal 


rary variable. LI. LI: co-ordi- 


height for factng wall. DW 


nates of player. Tl. TI: 


wall depths for walls In adja- 


temporary co-ordinates for 


cent cells. 




:FF]'ITt.l<" 



I 148 PRINT' 

14? PPIMT 

150 TEMPO... ... 

:nE:-:-:iuft: = lTO5:MDSIC"-I>a_C0" 

155 NEXTI.J 

160 PRINT"ID"iPPIHTS*!"Fin 

■-■ -RINTS*: M lhrou?h a" 

. RINTS*S"PersMK-M'.'e 

. it- 3 PRINTS*: "Bef °ns of t 

1 16-; FfJUTlPFIMTlPPI MTt.it" 



■=■;■" |-.MNZGnt:IF:i:jy.l4W,lc20 

-■;■:. PRINT-MBOBBMH I > ■ 

?35 PRINTSi:"CO-0RDS !-" 

itfci P( INT: PRINTS*!" < 

34=, pF--i-„'U7*80'i:it: 
950 pokepp.; 
955 psintipt 

, r .'. fp'[mV:FRi'mt"pRIHTS*:"5ISNOTHER 6HHE?" 
-,-■.-. i-ET Hi: IP h*=-"THEM?65 
170 IFa*=■ l V"THEHPRINT"■— " 
RESTORE! SOTO 1 

set' PF HIT "NCI"! END 
■J99 rem =* FBCIMQ WALL PliPLflV *= 

»39:WH-WCH>-2*(5-CB>-l 

loos fori-citoc;:pokei-40.i;.o:me>:ti 

1010 FOPI=uT0UH:P0KEei+" " 



VES": FORI -1TO500: NEXT! 



I,UU2)IP0KEC2+«* 



H:F-:ilEI-40-112!NEXT I 




GRAPHICAL ~ 



1147353754.13835585.. 
I £0 LET U-Xgl- ..J.. 

---MICR 



1 OR MOPHBL COLI 
ill E=T Z*.INK«*. M o"H" THEN 




" "■! n ii « . 



(?0-F 





reduced 






this round of golf will to" the 





t. you 

Graphical Goll ii an IB- you will >■• the 

hole ilmulallon ot th* i*al draw th* hoi*. •! 

gam*. II hoi b«n mad* o» ZX80. th* kihe * 

realistic at poHibl*. with go blank lor 10 lee 

many ol th* fMtlUM ol lh* Wh*n th* comput 

real thing. lilwd, you will b* 

Initially, th* computer with a graphical^ 
aslti you If you would 111 



Th* ■ 



>URL 



s7a rs? rTH.T-Sr^RNoW -*aB- 

295 LET ZZ.ZZtP " 

388 NEXT " 

30E PRIN 

310 FOR 

3E0 NEJ<t „ 

3SB LET P.»* 



club.'YoubawKclr 
■iittng of 1-4 wood*. 

ag* *wlng. Ne«t i 
mind to Input an i 
■hoi. An Input of 'O' 
mHU straight ah* 
iter straight up. *lc. 

Hwhd 1 and 65 000+ in You'll *ncounl*t 

.plyto"COURSENOr. If h 



o the HEM it 



>t 65 OKI diiUr.nl ci 






.ET P.*=fl* + 
-ET «=»*< 

JEXT^f .. 



388 NEXT^j 

398 LET BS»r 

393 LET PBaV 

395 LET RC=U 

483 LET CI=Y 

4 18 LET P3=Y 

4.20 LET HP«Y 

i3B let up-y 

d.4-0 LET TS=Y 

4.58 LET PR=> 

450 LET ZZbY 

470 LET YY-Y 

408 LET XX "Y 

490 LET SH-Y 

588 LET DF=Y 

ElO LET HS.Y 



I coutl* bunker*, th* ro 

again somellm*. simply •»•□ wat« tiapl 

Input th* cam* number in Th* compular 

response to "COURSE NO?", out a scoracard 

Finally, you asked to input round you pla^ 

your handicap. *1** Input maybe inn r*c 

24. If you play wall enough, handicap should 
your handicap will 






URL "33" 



LET UP* 



LET UP=W 
_ , '2 , '> 
NEXT 



<UPtL 

LET 
"838 FOR 
'S50 FOR B«- 
S60 I 



INT (HHJz-VfH. 

U-IRNDJ.3) TO 
RND>.3> TO 



US' 



(UFt+B> *<JP,L "33"+HP+H + I> 



■•33 ,, +hp*df ,' 



908 POKE DF*TG*UBL 
918 LET ZZ«VHL ,, -3" 

UP+ZZ) .UP.L -33' -t 

j dURL "O" AND F 

THEN GOTO VOL "918" 

ZZ=VRL "-3" -INT 1R NO*Of 
l"+INT <RND*U< 







L650 PRINT RT 
1660 EOTO UBL 



URL , '2B" 



N GOTO 
v;B| . 



>', B* 



,7° ,x?-, «»'>»" 



THEN GOTO 

! RNt> > - * 



1 IF PEEK IVY) "V 

I 5| x 5nS>.2s THEN goto url 

UI?S POKE SXuB° "33' + HP*DF,UflL 
I iB i» , F=T HP=HP*IRND>;.S) -lRNt>>. 



V THEN GOTO 



m p<Of>L 



,y; "OUT or 
L ||uN^PEnKtV^ STROKE- 
US! PRUSE B OflL "*«r 
,7 10 GOTO URL 13*0 . __ 

IIUHSS SfSSt -!§•■:?: ? Jp 

3* ™En-PI!N. 1 |I» OK » 
V?« ^aWa^S?"^ 

i?ll ^ T B Sbr.w-THtN ooto un,. 

f?70 PRINT AT ««L -M-.V1-"' 

HT , g^ET'cC. .»»»»">"■"»- "5" 

HI !&% i|fc!s:-.?i<* 

f^.^L nnTUT nt URL "=*■ ' ' 



5B JSxnr ot u«L 

ill! •»p"';,E*or ci 



^-l-^kj OB TNT "GOOD"" l 
.iNT'.BND.UOL ^g J, 

lBsa if |f»5 JSe" ' 



I860 IE ZZ=U 
1870 T,c 



I LET 



ilO' 



_. ; usb" 

PINT HT URL -3 
TRGC 5UING"<S0-10O' 



1390 LETUPS 

1*10 
TRGE 



g" THEN GOTO Wfl 



-percen 



&™^Ly^ Y '" 5HOT ' 

le^ i -i»0 to *ie»> 



THEN g"'" al ""Msi'',¥;B* 
-RINT RT URL ..§£-■ Y ;B* 



!rl* .'-as 

lUBL "2" THEN LET MC= 



1900 IF 



till ts%^«jt " 
HI! BHSggh". 

aisl^PiuSE OrtL "IBB" 



1508 LET 52*i85y 






Hi irc??;l?'""»" "t5§n let ci 

15S°IF c!> U BL "IB" THEN LET CI 

nil ^ 5 ^>5.i! , ,r I ::: u*"- 



=5,ge'T«H. "TO 



irINT TAB URL 

1 a 1*0 pr int 



■■aS N 



S^SnI S; Jh,url U ^0 

I 2170 LET TG=URL 



n^Zt'r'-"" 






■■ A'RL '^Jf 8 " 

,■■ ,url "Ibb" 

URL "la") 
-INT IRND*UR 

3 1 ' THEN PRINT " 

3" THEN PRINT " 

iL N ' : iS'- .VRL "*"J 
(HP.U- THT ti.fMJ 

(YYiUfiL- -20"fRi 



,38- THEN LET ' 




; =.TPENGTH-? (l-^t»J " 
34.00 PAUSE Un t„"fS" 

fill "? SKaJ5x" cu.wr .o 



J4.B0 POKE fr.vW. 317",Ufll. S. 
34.70 PAUSE "JflJ- " 5 £".-,.. ,,o, », 

t-lka POKE cf.wl;317 ,UAL. 1 
2A90 pause 'JRL mo 

?Sii PRINT "YOU HOLED DLIT TN 
H: ■ SHOTS" 




HFN PRINT '■ 



HM'Hlllll'IM 

^.■mwH:iJ.ni.»a-M 

Vroom. vrooml Here they and ojm gi»n. You ore in 
corns — it's the dualling control ol the green car. 
dodgems! The computer controls the 

But these ore not really red one. 
like those old fairground The computer-car will 
favourites. There's more proceed to rush around 
than a touch of motorway the track int he opposite 
madness In this game. direction to your red car 
Your BBC micro will set - and it's aim Is 
up a square-shaped race extremely unfriendly. It 
track for you — and two wants to knock you otf the 
will appear. One red road as quickly as pos- 
sible. You must avoid the 
computer car . 



'7i 3P 


■ ■ ■ 
LET T£ 
LET z; 

IF IT- 


eTS+SH 
=TS-RR 
"YOU RRE NOU 




llll 


IF' ZZ = 
IF ZZ 


V THEN 

Y THEN 


PRINT 
PRINT 


"LEUETL"; 
ZZ; " oue 


2683 
270B 

■ 

37*0 


PRINT 
PRUSE 
CLS 

PRINT 


" PAR (GROSS) 
TRB URL. "12" 




37SB PRINT TRB URL "B"J "HOLE";TA 
B UfiL "11", "DIST";TBB UAL. -19";" 
PAR" :TAB UBL "S6".; "5HOTS" 

b?7« print'tub UAL "♦"jHiTflB uru 

"1H"J L_ IM) ; TBB URL "30"; P IH) ; TFIB 

?7S0 PRINT "SbbbbPs^'^TRB URL "IS 
".PR; TRB URL. "S7";TS 
SS00 PRUSK URL '•4.000B" 


essa 


PRINT 


"YOU TOOK ";TS;" SHOT 


£330 PRINT " (NET 

2B?a IF ZZ<Y THEN 

3880 If'zZitY then 
3890 if zz>y then 


PRINT RBS ZZ; " 

PRINT "LEUEL"; 
PRINT ZZ; " QUE 


"■_ v.i? 


IF HA 
IF ZZ 


=Y THEN 


S^THEN LET PD, 


2930 

.- : :.U'l 

£950 


IF IZI-U THEN LET PD*-U 

IF ZZ<URL "-S" THEN LETT PC = 

IF RBS PDJHR THEN LET PD»-H 


PRINT 


"RS A 


RESULT 


JAL "3030 


=990 PRINT "HANDICAP IS 
B5 PD.; " SHOTS" , " TO " i H 


3+PD 


;.ii:?0 


PRINT "YOU»HRNEMCR 


* STAYS R 




Al?Hf! 



BY ALEX KEIRNAN 

RUNS ON AN UNEXPANDED VIC-20\ 



PACMAN 




Thorn's an indicator at the bottom of the screen 
which tells you when the ghosts are vulnerable to 
Munch your way around a mare in this adaptation attack. To help the Pacman the maxe has two 
of the game that has inspired pop-records, tee- sneaky escape exits at either side which could help 
shirts, plnball machines. TV adverts and thousands you bafile those deadly ghosts. 
of imitators. It's all here. The ghosts out to munch To control your Pacman use keys T for up. T-left 
the greedy little pacman. The power pills which K'-right. 'M'-down. Just one warning - don't play 
enable the Pacman to devour the ghosts. And all the this game between meals. It could ruin your 
devious twists and turns of the mase itself. a ppetite I ■ 

~0 B = OIL = 3: GOSUB 30001 IUM yACU.ll> 
1 HOME t NORMAL 
5 GOSUB 60001 GOSUB 10000 
FDR Y = TO 11 
FOR X = TO 14 
REAP a:va<x.y> * A 
IF S > 2230 AND A / 13 = INT I 
; _ 4470)!UA(X.Y) - AJNE * 1 
NEXT X 
28 IF - S > THEN YA(0.5> = 01VA<1 



70!' 



3o;yAU4r5> = o:yAU3.5) 

>; XBRAU 3 AT 129.1451 XHRAU 2 AT 139.145: XDR 
FOR P - 1 TO LI XDRAW 2 AT F * 10 r 119.101 



= 139 !0A 



; 6410B 



30* GOSUB 5000: ROT 
AH 3 AT 149.145 
32 R0T= 0: SCALE= 
EXT P 

35 v = io:ni = o:n 

AW 3 AT DA. 0B 

T"„' <S?» D FU»SH , PKINt"' """«« «« KEY TO START 
-° f JS« - ,S3V»1 WMT - M3M.13U N0R««L_ 
40 H0»E : VT6B 1 21 » PRINT " SC0RE ~ 

100 FOR T = 1 TO 2 STEP 

REEK < - 16384) u6(XO,Yft> 



RDT= Oi XDR 



NO TUNN 
THE TU 



IF 



; ■ 20: 



THEN R 



' 5 = 



IF PA 



INT 
INT 



PA / 5) THEN Y = Y 4 

PA / 7) THEN X = X 

FA / 3) THEN X ■ X 



135 IF K - 202 THEN R - 48 

u: IF X < 69 THEN X » 209 
140 IF K = 203 THEN R ■ 16"- If 7 P ft 

11 ■^T»^^V^^7i?,5? , ^'ss....^ 



o 



1 AT X.Y! POKE 76B.96I POKE 769.3! CALL 770iVA(XA 

• dt - i:b = s + 10: vtab (2d: htab <20>: print 

GOTO 2000 

152 if sf = 1 then rot= 0! return 

155 if pa > and pa / 13 = int (pa / 13) then rot = 0: xdrau 4 a 

t x.y: for p = 10 to 1 step - i: poke 768. pi poke 769.3! call 77 

0! next p:va(xa.ya) = - pa! gosub 600 

200 gh = ua((oa - 69) / 10. < ob - 24 ) / 10) 

205 d = - d;di = 

207 if <y = b) then goto 215 

210 if d < or (x = a) then goto 255 

215 if (x > a) then goto 240 

220 if gh / 7 = int (gh / 7) then a = a - u! goto 320 

230 GOTO 250 

3 IF GH / 3 ■ INT ( GH / 3) THEN A = A 4 V! GOTO 320 

) HI = DI + i;ii = - i: IF HI = 2 THEN GOTO 285 
255 IF Y > B THEN GOTO 



SGN (X - A ) > ( Y 

INT (GH / 7 > THEN I 

1! GOTO 320 

INT (GH / 2) THEN 1 



v:d ■ 



= i: GOTO 320 

GOTO 320 



XDRAU 3 AT A.BI 



(A = 



XDRAU 3 AT 139.145: XDRAU 2 AT 1 



B> THEN GDSUB 800! GOTO 700 



260 IF GH / 2 = INT ( GH / 2> THEN B = B - V! GOTO 320 
265 GOTO 275 

IF GH / 5 = INT (GH / 5) THEN B = B 4 V! GOTO 320 
275 01 = DI + 1!D = i: IF DI = 2 THEN GOTO 235 
280 GOTD 215 

285 IF ( X - A ) * SGN ( X - A ) > ( Y - B ) * SGN ( Y - B ) THEN GOTO 
300 

290 IF GH / 7 = 
295 A = A + V!D = : 
300 IF GH / 2 = 
305 B = B + ViD = - 1 
320 IF A > 209 THEN A = 69 
323 IF A < 69 THEN A = 209 
325 ROT= O: XDRAU 3 AT OA.OB! 
THEN GOTO 1000 
330 OA = AtOB = B 

600 SF E = T lI ROT= 0: XDRAU 3 AT 129,145! XBRAU_ 2 AT_139.145! XDRAU 3 

.45! XDRAU 2 AT 129. 14S 
+9,145 

610 FOR Z = 1 TO 15 
620 GOSUB 110! IF (X = A) * <Y < 
630 P = INT ( RNH (1) * 3) 

635 GH = UA((OA - 69) / 10. ( OB - 24 ) / 10 ) 
640 IF P = 2 AND GH / 5 = INT (GH / 5) THEN B - B + V 
650 IF P ■ AND GH / 2 - INT ( GH / 2 ) THEN B = B - V 
460 IF P « 3 AND GH / 7 • INT ( GH / 7 ) THEN A ■ A - V! IF 

670 IFF = 1 AND GH / 3 = INT ( GH / 3 ) THEN A = A 

660 ROT= 01 XDRAU 3 AT DA, OB! XDRAU 3 AT A.BiOA = A 
690 IF ( X = A > * ( Y = B ) THEN GOSUB 800 

710 SF = 0! ROT= 0! XDRAU 2 AT 129.145! XDRAU 3 AT 1 
AT 149,145! XDRAU 3 AT 129,145! XDRAU 2 AT 139,145! 

715 FOR P - 1 TO 15!Z - PEEK I - 16336)! NEXT P 

LoO XDRAU^S AT A.BIA - 139IB - 64!OA = AIOB = »»«/•»»* 

RIMT CHR* (7)C NEXT P!Z = 15! XDRAU 3 AT OA.OBIS = S + 100! Vlt 

& (21)! HTAB (20)! PRINT SI RETURN 

1000 ROT= Rt XDRAU 2 AT X,Y! SCALE= 2! FOR R = TO 128 STEP 8! 

T= R! XDRAU 2 AT X.Y'.D » PEEK ( - 16336)! NEXT R! POKE 

O! HOME I VTAB (21)1 HTAB (15): PRINT "SCORE = "IS 

1005 XDRAU 2 AT X.Y! ROT= 0! SCALE= 1! XDRAU 3 AT. A,. 



IF A 



209 



1636B, 



XDRAU 2 AT 



PRINT 



* DO* YOU W ftNT 



• if i. / v THEN ■ 
ANOTHER GAME? m i 



1 TO 500 1 NEXT P 



. GOTO 1 



GET Q*; IF 0* 
I END 



CLEAR I DIH 



yftt 14'H 



77 „: NEXT P! RESTORE I » W 

l^rTEXT ; ,hS; E „,,,,,,„,,»,,,,,..,«...»..«»»- 
J010 PRINT ,"»»•"„!„ , PRINT ■ 

I— .,!"sw i>syr'pRTNT ■ 

"'instructions" 

3050 PRINT _ ^ ACTION'; 



SIMPLE 




I 



UP' 



LEFT 
J RIGHT" 

K DOWN" 

" °111t - E l1rBE DOTS Sf^HERWf^cfttKD AT THE SCREE 

!X"iJKEV<ffS.« REtum. 

SS !S T ■ TO U 

300= FOR X - TO H 

58 ! : »?'"• "> ;u 

5020 HCOLOR= 
j050 IF ft ' 



IF d / 3 



7 


INT <A 


/ 2 > THEN HPLOT K - S*W 




INT (A 


/ 3) THEN HPLOT K * 5- y " 




INT (A 


/ 5 ) THEN HPLOT K - S»W * 




INT (A 


/ 7) THEN HFLOT K - c -" y " 


AND P 


/ 13 « 


imt c* / »> THEN XI,KAU 


THEN 


XDRAU 


j AT K.tftDt = DT + 1 



IF A 

| 5067 IP A 
lo 5400 
I 5070 IF A 
5400 NEXT * 

3S ST- "0 TO 7« 

6010 READ V 
I 6020 POKE XiY 
6 030 NEXT X , 9 , 19a , 13 6.208»5. 206 

6 040 DATA 173.49.1^ 

1 1,76.2.3-96.0.0 

.6050 RETURN 232( i6t POKE 233,64 

10O0O HGR2 t I 



5 TO U ! 
5 TO K * ' 
5 TO K + 
5 TO K - 5* y 
y; GOT 




.0005 
10010 
10O2G 
|10030 
10040 
10050 
10O55 
10O6O 
10O70 
0080 
L 0090 
J 

101 DO 
20O0O 
20010 
20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 



TEXT 

e rftL F= it ROT= 

?5fi X = 16400 TO 16460 

READ Y 

POKE X,Y 

NEXT X 

RETURN ,. 

data 4'°' io ;°:i 6 ;°'o 

DATA 42-36-63.54,21.0 
DATA 18.27.39,36. 
DATA 46,30.46.9.3 



,,,9.49.53.54.62 
39.37.39.39,63,46 



DA TA S3. 30, 60, 60, 12-37, 21, 21- 6,C [ 105 , zlilOT ,zi ,35 

OftTfl M>«0.0.30,21.210.70.0 i». >l05jU ,i ? 



70.6.35.6 

,10,-21,-210.21,210.21.70.. 



DATA 

DATA 10,6. 

DATA 6,35,30,21 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



70.6.105,70 
„„, 21,70,10 
,70.0,30,70 



VICTORIAN SEWERS 



Chaos in the city as the 


gram will gologosub the 












Although Tl Basic doss Dot 








ARE used In this program . in 






gradually eroding road 





This program Is in TI Basic ] 

tor a 99/4A console with uo t 

additions. 11 will also run in t 
Extended Basic, and it you 

hare the 32K expansion t 

memory, it will run faster In two dimensional arra; 

Extended Basic lhan in TI RT{N,M) which is read bac. 
to delete a route which sul 

1 ters tram a road collapse. 



1: CALL GCHAfl (HOW. should r 

COLUMN. VARIABLE) in mula In lines ( 
which (he variable takes Ibe lion) and 
ASCII code of the charter at (decoding) - 
that position. does not look al 

The characters take the a slight appro 
codes giTen in lines 2290- been used. 
23*0 and are aU coloured For «r LI 
blocks except the ployer POS iunc 
(PLY) who is an 'H'. to test the key pressed □ 

Owners oi machines with GOTO/GOSUB 
appropriate . 



ichlnes without the 



basic. 

This program uses several 
tricks you may iind useful: 
The ploy board is set up with 
PRINT statements - the 
iastesi way of doing this. 
The characters (the UNDER- 
LINE | is used here) are 
defined.) 

Note the use of POS in 
lines 1660 and 690 - the 



Pretty easy. The screen Is 
composed ol 24 rows ot 32 
characters. The PRINT lines 
start in column 3. and as 
they all start with a space. 
the first PRINTED is in col- 
umn 4. 

CALL HCHAR is in the for- 
mat: CALL HCHAR (HOW. 
COLUMN. ASCII. No of 




31 P ' IETTING UF THE BOARD 

32 RBI USE UNMRUNEi - 

:t:F .'1=RNE*isj 
! 1 n IiEJ VE=RNIm£ 

ISO L'EF Fi=RNl!-^9ij-rlIlj 

130 ' I'::' 

!■■:.: ':";■■- m=RMB*5fiS+3O0 

150 Dill RT<2.70> 

160 BET FR=RND*1 30+400 

170 >300QO 

190-CfiLL CLEAR 

£00 PRINT 

£10 PHI NT " 



o 



?o print '■ _ 


- 


- " 


>80~print " _ 


__. 





_-. ■ :INT " - 


- 


- - 


30G~PRINT " 


__ 











32Q~Pf:INT " _ 


_ 


- - 


330~PRINT " _ 


— 





340~PHIHT " - 


- 


_ _ 


350~PP.INT " - 


- 


- - 








3?Q~Pf:INT " _ 


_ 


_ 


380 PF:INT M _ 


- 





390PMNT " _ 


- 


_ _ - - 


400 I-'PItJT " 






4lTpPINT 






42G PRINT 






430 CULL HCHflR 


11 


l,UTRi3£> 


44 CULL HCHflR 


IP 


■ 


430 REM ROAD MAP 


DRAWN 


460 PALL COLOR 


1»4<4> 


4?n CHLL HCHflR 


11 


r3>HDLE»6) 


480 CHLL HCHHR<12 


18.HTJLE-6- 


490 CULL HCHflR 


1 1 


4>RDi9> 


500 CHLL HCHflR<i£ 


4»R5.9> 


510 CHLL HCHflR <11 


19jRD»9> 


520 CHLL HCHflR 


12 


19jRD>9> 


530 R=l 






540 RDW=11 






550 CDL=4 






560 GUSUE 15£fl 






570 fi=2 






530 RDW=1£ 






530 C0L=4 






6 n r:i GOSUB I53C 






610 CHLL SCHHP 


cii 


9>CBE> 


620 REM CONTROL 


SECTION 


630 CALL KEV-:0 




ST) 


64 g if RND .99 


"HEN 660 


650 CflLL SDUNI 


CTM 


■FliVl»F2iVa> 



fth.fi ^-iLL HCHflR f^'P-RC) PLY) 

670 CflLL HCHflR <RRtPCj CLE) 

6RO IF ST<1 THEN 630 

690 ON PDS':"ESD>;R".CHRtaOi.l> + 

GOSUB 7£0> 730*790)350!. 910 , 930 

700 6QSUB 1190 

710 GOTO 630 

720 RETURN 

730 CALL GCHflRCRR-ljRCjCB) 

740 IF CD=32 THEN 780 

75 RR=RR-1 

760 CHLL HCHflR (RRjRC) PLY) 

770 CI'E=CB 

78 RETURN 

790 CHLL GCHHR<PR)RC-l!.CD) 

300 IF CB=3£ THEN 730 

310 RC=RC-1 

330 CALL HCHAR'PF>RC-PLY> 

PP0 C]iE= 

34 RETURN 

:.. GCHAR(RR-RC - .- 

860 IF CL=32 THEN 340 

-RC+1 

CALL HCHflR <RP-»F ■■ - 

390 CDE=CTJ 

900 RETURN 

910 CHLL SCHARCRR+1-R": 
3£0 IF CD=3£ THEN 900 
9-?.(\ RP=RR+1 

940 CALL HCHflRCRR-RC«PLY) 
950 CDE=CB 
960 RETURN 

370 REM PEPA1P SECTION 
9S0 IF CCBEv-HDL.E.J-'JSIiE : ' cc "- 1 - 
N 1040 

990 IF CDE=HOLE THEN 1000 ELSE 
1050 

1000 CDE=REP 
1010 FOR T=l TO 10 
10£0 CHLL 30UND<-199): ■ i 
R,30---4)0> 
lfi:-:i'i NEXT T 
104Q RETURN 

1050 IF CDE=REP THEN 1060 ELiE 
1040 

1060 CBE=RD 

1070 F <RR=11^+<RR=12>THEN 1030 
ELSE 1040 

1030 'ALL HCHflR CRRjRCsCDE) 
1090 FOR R=ll TO 13 
110 FOR C=3 TO 39 
1110 CHLL SCHflR(RtC»TEST> 

F .'TEST -'PLY^rCTESTGRD:.^ 
TEST -C UTR) * (TEST O LTR,' THEN 1170 
1130 NEXT C 
1140 NEXT R 
1150 REM WINNER*** 
1160 GTJTD £4: 
U7C RETURN 
11PO REM DAMP 



o 







=INT RND*££>+5 


1 7:3 


IF CD ORB THEN 1590 








1740 


CDL=CDL-1 






RjCiCD) 


1750 


CALL HCHflRCRDU.CaL.TR> 






F=R:^',EC=C>THEN 730 


1760 


GDTD 1S70 






■ : >RD)*(CD<>UTR>*<CBO 


1770 
1730 


CALL GCHRRCROW+l.CDL.CD> 
IF CDORD THEN 1590 






IF RM»LEVEL THEN 720 


1790 


RDU=ROW+l 


1 1250 


CALL HCHARCR.C.HDLE) 


1300 


CHLL HCHARCROW.CDLiTR) 


1 


CALL SDUND<400>-8»0) 


1310 


GDTD 137 


I 1270 


:.F CCD=UTR>+CCB=LTR>THEN 12 


13£0 


CALL 6CHRRCRDW.CDL+1.CI0 


II »0 




1330 


IF CDORD THEN 1590 




1330 


RETURN 


1340 


CDL=CDL+1 




1290 


FDR T£=l TD 4 


1350 


CALL HCHflRCROW.CDL.TR> 




13 00 


FOR T=l TD 5 


1360 


GDTO 1870 




1310 


CALL SGUND<~99.500+T*£0.T#4 


1370 
1880 


W=RDW*32+CDL 
. - '+1 




1330 


NEXT T 


1390 


FIT CAi NUMB CA>>=TDT 




133 


CALL SDUNB<-99.£50. 1&-266- 1 


1300 


IF CRnW=10+fl>*CCDL=27)THEN 


■ 9) 




1920 




■ 134C 


NEXT T£ 


1910 


GDTD 1590 


■ 1350 


IF CD=LTR THEN 1330 


1920 


RETURN 


■ 1360 


A=l 


1930 


CALL CLEAR 


■ 1370 


GOTO 1390 


194 


PRINT "VICTORIAN SEWERS";:' 1 


■ 1380 


R=2 


CO 1 


82 STEPHEN SHAW": : 


■ 1390 


FTJR T=l TD NUMBCfl} 


195 


PRINT "YOU MUST KEEP THE CI 1 


■ 140il 


ROW=INT(RTCAiT>.-3£> 


TV: 


TRAFFIC FLOWING. """DESPITE 1 


■ 1410 


CDL= CRT CR. T> -3£-R0W> *3E 


THE FREQUENT", 


■ 1420 


CRLL GCHAR CROW. COL. CIO 


1 96 


PRINT "COLLAPSE DF SECTIONS 1 


■ 1430 


IF CCUOLTR)*CCDOUTR)THEN 


DF RDAHflS THE OLD SEWERS AT LA:; 1 


1450 




T GIVE IN TD TIME." 


1 1440 


CALL HCHARCROW<CDLiRD> 


1970 


PRINT :: = "PRESS ENTER TO CC 1 




next t 


NTINUE... " 


1 1460 


f::G!:!=:NT(RT(flii;--3£> 


19S0 


INPUT MS 




CDL= <RT CA i 1> /32-RDW) *3£ 


1990 


CALL CLEAR 


1 1430 


CALL HCHARCRDW,COL.PLY> 


£000 


PRINT "A MAIN ROUTE RUNS AC 1 


■ 1490 


GQS'UE 1520 


RDSS 


■ HECENTRE DF THE SCREEN.": 1 


■ 1500 


RETURN 


'■A LARGE CDLLHPSE TAKES PLACE" 


■ 1510 


REM RDUTE TRAFFIC 


£010 


PRINT "FIRST YOU MUST RERDU 1 


■ i 


NUMB (fl)-G 


TE EACH DF TWO LANES DF TR 




IF A=l THEN 1570 


: "ijs 


NG THE ARROW KEYS:": " E.S 1 


1 1540 


IF A02 THEN 1580 


. Ii . !■;-: 




■ 1550 


7R=LTR 


£080 


PRINT "YDUR ROUTE MUST NDT 1 


■ 1560 


GOTO 158 


CRDS 


ANY OTHER ROUTE NOR ANY" 1 


■ 1570 


TR=UTR 


: "DAMAGED SECTIONS." 


■ 153 


GDTO 137 


£030 


PRINT "FLAN YDUR ROUTE EEFO 1 


■ 1590 


CHLL KEY<0»KfST) 


RE YOU BEGIN AS CORRECTIONS CAN 1 


■ 1600 


CRLL HCHflRCRDW.COL.PLY) 


NOT EE MADE. .."::: 


■ 161 L 


CALL HCHARCRDW.CDLiTR) 


£ 04 


PRINT "PRESS ENTER TD CDNTI 1 


■ 1620 


IF RNB0 99 THEN 1640 


HUE. 




■ 1630 


CALL SOUND CTM.Fli VI. F2. V£i 


2050 


INPUT R$ 


■ 164 


IF ST<1 THEN 1590 


2 06. 


CALL CLEAR 


■ 1650 


CALL SDUNDClOOi UG.4) 


£ 07 


PRINT "WHEN TWO LANES OF TR 


■ 1660 


dn pnscEsriX"!.CHRsao.i>+i 


AFFIC HAVE BEEN ROUTED YOU ENT | 


■ goto 


1590i 1670- 1720-1320.1770 


ER 


iNuTHER SECTION DF PLAY." 




■"ALL GCHARCRDW-l.CDL.CD) 


£ 08 13 


PRINT "YOU MUST MOVE YDUR R 




IF CDORD THEN 1590 


EPAIR GANG CR> USING THE CURSD | 




ROW=RDW-l 


R 


<EYS AND WHEN OVER DAMAGED 


1 17 00 


CALL HCHARCRDWiCDL.TR> 






II 1710 


GDTD 137 


£ 09 


PRINT "ROAD. REPAIR IT BY PR 




1 172 


CRLL GCHAR CROW. CuL-1 ■ CD> 


ESSING KEY 'R'." 



Victorian 
Sewers 



SiOO PRINT "IT TAKES TWO E 


li:;-:.: RHNDDN-IZE 






TQ REPAIR EACH SECTION. " 


2290 HDLE=30 


^^^^ 




2110 PRINT "WHILE VDU ARE DOING 


2300 PEP=112 


■ 




THIS ' s^DTHER SECTIONS COLLAPSE. 


2310 ■ D=95 






":"IF TRRFFIC FLOW IS HALTED." 


£320 UTF-104 






[NT "YOU MUST REROUTE THE 


£33 LTR=105 






TRfiFLICSEFOPE CONTINUING THE RE 


£34 PLY=82 






PAIR" 


£350 RR=11 






213ft PRINT "VDU WIN IF YOU CRN R 


£360 RDU=11 






ESTDRE THE WAIN ROAD.' 1 


£370 COL=9 






2140 PRINT "¥OU LOSE IF YOU CflNN 


£38 RC=9 






JOT"; 'FESTDRE THE TRRFFIC FLOW":" 


£390 CBE=RB 






::: DISRUPTED.": 


£400 KTtl)l>=l 


^^^^H 




£150 PRINT "PRESS ENTER TD CDNTI 


£410 KT<£j1)=12*3£+4 ■ 




MUE" 


£4E0 RETURN ^M 




- - ■ ypuT H$ 


£430 REM **« WINNER sss 




£170 CALL CLEAR 


£440 CALL SOUND (600)300) 




-.NT ''ENTER DIFFICULTY LEV 


£450 PRINT "WELL HONE YOU 


MABEll 


Ei :■: l.EflSV":"2.MEDIDCRE"s"3.flV 


T!" 




ERASE": "4, HARD"; "5. VERY HARE": "6 


£460 CALL COLOR C3- £< 15 




. INSANE" 


£470 PRINT "TD PLAY AGAIN 


CLEAR 1 


£190 PRINT :: 


AND RE- RUN PROGRAM" 




2290 INPUT LEVEL 

;=:-; ■ - LEVEL- THEN £130 


£480 GOTO £430 








£££0 "F LEVEL>6 THEN 2130 






££30 LEVEL=LEVEL/7 






££4n CALL CHAR (IIP) "FFS1818i818l| 






81FF-. ^M 




2250 'ALL CnLDR<lijl0-12J^H 






££R.n CALL COLOR'S. 15, 15J ■ 






|£P7u CALL COLOR 'Hi* 16. 16>^^^J 


( \'\\ ' V? T S 







